11 / 2/81 


EXP. S 

0100 ' 0001 l ; 


0100 




0002 

1 EXP 

- A monitor for the 

E 

xpando r 


0100 




0003 

1 






0100 




0004 

1 

(C) 

1981 bv Micro- 

■!£ 

xpand«r» Inc.- 


0100 




0005 

! 

A 1 1 

Rights Reserve 

d 



0100 




0006 

5 






0100 




0007 







0100 




0003 

ROM 

EGU 

OFOOOH 

« 

the starting address of the 

monitor rom 

0100 




0009 

PI BIAS EC'U 

00300H 

5 

bias to second page of r orn 


0100 




0010 

P10RG 

EQU 

RGM+00800H 

5 

where to start page 1 


0100 




0011 

ENDP1 

EQU 

P 1 GRG+G0800H 

5 

end of page 1 


0100 




0012 







0100 

i 



0013 


ORG 

ROM 




FOOD 




0014 





» 


FOOO 

C3 

9D 

FO 

0015 


JP 

RESET 


» Monitor Cold Starti reset 

everything 

F003 

C3 

4D 

FO 

0016 


JP 

RESTART 

5 

Monitor Warm. Start T . reset tli 

e stack only • , , 

F006 




0017 





• 

•• 

F006 

C3 

53 

F7 

0018 


JP 

KSTAT 

; 

returns Offh if char available at kbd else 0 

F009 

C3 

58 

F7 

0019 


JP 

KBREAD 

5 

returns a character from the 

keyboard in acc 

FOOC 

C3 

5F 

F3 

0020 


JP 

PUTCHAR 

! 

print the character in c on 

the video ‘ ; * 

FOOF 




0021 





*^v 


' FOOF 

C3 

65 

F7\ 

0022 


, JP ' 

PSTAT 

5 

same as kstat except with paral lel port ;.VV * 

* F01 2 

C3 

6E 

F7 i 

0023 


JP 

PREAD 

5 

same as kread " , " • 

, “ • 11 .\, • 

1 F015 

C3 

77 

F?J 

0024 


JP 

POUT 

1 

same as putchar M . . " 

• •• ' • H • . * / * v 

F01 8 




0025 





' • i '•* • ’ 

• ' •.•!••• . . 

F018 

03 

01 

F 7 

■' 0026 


JP 

SERSTAT 

i 

serial status, 


FO IB 

C3 

oa 

F7 

0027 


JP 

SERIN 

i 

serial input . • . » 


FOIE 

03 

20 

F 7 

0028 


JP 

SEROUT 

5 

same as putchar 

V- ' 

F021 




' 0029 






. y '• 

F021 

C3 

EC 

F 6 

0030 


JP • 

SERSEL 

? 

select serial baud rate 



F024 

F024 

C3 

81 

F7 

0031 

0032 

JP 

CASSTAT. 

1 cassette u tatus 


F027 

C3 

8A 

F7 

► 0033 

JP 

CASIN 

; cassette input 

. ' 'O' * ’’ “'W v . 

* • '• r •* . • • • • 

F02A 

03 

AO 

F7 

*0034 

, JP 

CASQUT 

1 cassette output 


F02D 

F02D 

C3 

58 

FI 

0035 

0036 

JP 

i 

RFILE 

; read a cassette file 


F030 

C3 

60 

FI 

0037 

JP 

. WFILE - 

1 write a cassette file • • • , 


F033 

C3 

8C 

FI 

0038 

• : jp 

. RBLGCK 

; read a block of data ; 


F036 

C3 

66 

FI 

0039 

jp 

WBLGCK- 

5 write a block df data v. 

’■ . V s *• 

F039 

C3 

EF 

FI 

0040 

jp 

SYNC' 

» cassette svnc on header 

.• ; • * ' •' t 

F03C 

C3 

BE 

FI . 

. 0041 

• • jp . 

WSYNC 

5 cassette write header 

' * .’* 1 * . j*V.‘ . ; , , • . 

F03F 

C3 

8D 

F2 

004: 


* ‘ jp 

RTAIL 

i end cassette read ' : ; /.;7‘ -v; v 


F042 

C3 

7D 

F2 

'.V 004i 


jp 

WTAIt 

i end cassette write 

: ' V 

F045 


i* 


004- 

f 

5 

i! * 



F045 

31 

CO 

FF,, 

• 004: 

; :i 004< 

p 

START LD 

SP> MSTACK 

■ •• ■ ’! Vi' j‘ ! . • 

’ ' ; . J • . '\ s ‘ . 

F048 

OE 

1A 

\ 

? 

LD 

C.CCLEAR 

? clear the screen 

, i, ' ’ 

1 1 ■ A 

F04A 

CD 

• DE 

F2 

: 004: 

7 

CALL 

MPUTC 



F04D 

• i 1 

0048 



‘ . * r • ‘ \ * r 

F04D 

31 CO FF 

• 0049 

RESTART LD 

SP. MSTACK 

?• '• * ' .• . ‘ . . 

F050 

FB 

005Q 

El 


5 turn interupts on . 

F051 


0051 



. V . • . • \ ‘ • 

F051 

OE 2E 

0052 

CLOOP LD 

C , J 

out prompt 

F053 

CD DE F2 

005? 

CALL 

MPUTC ^ 

oo 4r O 

F056 


0054 



• 

F056 

CD C5 F2 

0055 

CALL 

GETLINE 

• . . ’ ' • • . . 

F059 


... i 0056 




F059 

2 A 30 FE r ; 

0057 

LD 

HL, < CURPOS ) 


F05C 

3A 32 FE.‘ 

. 0058 

LD 

A, (WASTHERE) 


F05F 

77 ’ ’ ‘ 

. 0059 

. LD 

( HL ) , A 


F060 

CD- B 1 F5 

> 0060 

CALL 

ATOLC 



F063 

OF 

01 


0061 

LD 

C, 1 


F065 

CD 

OO 

F5 

006? 

CALL 

LCTOA 


F06S 

0 6 

06 


0063 

LD 

B * 6 


cr 06A 

CD 

20 

p 3 

0064 

CALL 

FINDNB 


F06D 

7F 



0065 

LD 

A, (ML) 


P 06E 

F6 

20 


0066 

OR 

020H , 

• • , ’ . . • 

F070 




0067 




F070 

16 

OB 

i 

0068 

LD 

D , ECMDTAB-CMDTAB/3 


F079 

CD 

76 

F5 

006? 

CALL 

SWITCH 


^075 




007Q 




F075 

64 



007) 1 CMDTAB DB 

” •• 

• . \ - • , • 

F076 

AF 

FO 


: 0072 

• DW 

DUMP,: 


F078 

65 



0073 

DB 


• •' • , • * r 

p 079 

A4 

FO 


0074 

DW 

ENTER 


F07P 

6 A 



0075 

DB 

'J' 

•, i V 

F07C 

03 

FI 


0076 

DW 

JUMP 


F07F 

6E 



0077 

DB 



C: 07F 

00 

ES 


0078 

DW 

0E800H I North Star boot 

address, allows 53K CP/M 

FOS1 

6D 



0079 

DB 

y m y * both controllers can co-exist this way. 

F082 

00 

EC 


0030 

DW 

OECOOH • ? Micro polis boot 

address, allows 59K CP/M. 

FOS4 

74 



0031 

• DB 

't y 


F0S5 

IE 

FI 


0082 

DW 

TERM 

• . , 

F087 

73 



0083 

DB 



FOSS 

SB 

FI 


0034 

DW 

CSAVE 

v .. ■ 

FOSA 

6C 



0085 

DB 



FOSB 

41 

FI 


0086 

DW 

CLOAD 


F08D 

62 



0037 

DB 

'b' 


FOSE 

DF 

F6 


0088 

DW 

SELBAUD 

• : " • • 

F090 

63 



0089 

DB 

' c y 


F091 

4E 

FI 


0090 

DW 

CAT 


F093 

70 



0091 

DB 

'p' . '* 

• 

F094 

14 

FI 


0092 

DW 

PDLOAD 

. i ' 

F096 




0093 ECMDTAB EGlU 

$ . 

• r ’ .i ’ 

F096 




0094 



• \ i • ' 1 

F096 

36 

3F 


0095 ERROR LD 

<HL),'? y 


F098 




0096 




F09e 

CD 

D7 

F2 

0097 NXTCMD CALL 

CRLF • 


F09B 

18 

B4 


0098 

JR 

CLOOP t 


F09D 




0099 


■ # - 1 . • .... 

* • • i ' ' *• 

F09D 




0100 1 



* i 

F09D 




0101 ,.l 

Software i 

reset point 

. , . * .■ • 

F09D 




0102 |« 


• _ \ 

• ' ■ 1 i * ; ' • 

F09D 




0103 



. . • 1, 

P 09D 

F3 



0104 RESET DI 



F09E 

FD 

21 

06 FO 

0105 ! 

’ LD 

IY, INI T-P 1 B I AS 


F0A2 

18 

04 

• 

0106 1 

JR 

EDJCAL ? this mil 1 

call pasie.lv but not return 

F0A4 




0107 U 




F0A4 




. 0108 •; 

COPY 

ED J. CODE/ 1 

. ■ ! . . . . ■ * ■ 

F0A4 




0109 tf. 




P 0A4 




0110 ;i 

ENTER - the enter command (pase'O to pase 

1 linkage).?. 

F0A4 



i 

0111 :i 




F0A4 




0112 ? 

command syntax* e <addr> 

. . , . .i / ■ ■ • • 

F0A4 



' • ; ’ 

0113 '? 




F0A4 




0114 




F0A4 

FD 

21 

9B F4 

0115 ENTER LD 

IYt P1ENTER-P1BI AS 


FOAS 




0116 




F0A8 

CD 

D3 

F7 

0117 EDJCAL CALL 

P0TP1 v 


FOAF 

38 

E9 


0118 

JR 

Ci ERROR 


FOAD 

18 

E9 


0119 

JR 

NXTCMD.. 

■ 1 . . 

FOAF 




0120 i 





TOAF 




012.1 

» 



c OAF 




0122 

J DUMP - fho dump command 

FOAF 




0123 




FAAF 




0124 

1 command rr. 

'ntaxi d !star 

FOAF 




0125 

» 



FOAF 




0126 




^OAF 

cn 

ED 

CO 

0127 

DUMP 

CALL 

GET AD DR 

FOB? 


E2 


0128 


JR 

C , ERROR 

FOB 4 

D5 



0129 


PUSH 

DE 

FOB? 

CP 

Er 

F2 

0130 


CALL 

GETADDR 

FOBS 

EB 



0131 


EX 

on, ml 

F0B9 

D1 



0132 


POP 

DE 

FOBA 




0133 




^OBA 

CD 

07 

F2 

0134 

DU1 

CALL 

CRLF : 

FOBP 

7A 



0135 


LD 

A* D 

FOBE 

CD 

48 

F3 

0136 


CALL 

PUTHB 

FOCI 

7B 



0137 


LD 

AtE 

F0C2 

CD 

4S 

F3 

0138 


CALL 

PUTHB. * 

F0C5 




0139 



• M 

F0C5 

D5 



0140 


PUSH 

DE * * v 

F0C6 

06 

10 


0141 


LD 

B, 16 • . 

F0C8 

OE 

20 


0142 

DU2 

LD 

C, ' : 

FOCA 

CD 

DE 

F2 

014? 


CALL 

MPUTC 

FOCD 

1A 



0144 


LD 

A, (DE) 

FOCE 

CD 

48 

F3 

0145 


CALL 

PUTHB 

F0D1 

13 



0146 


INC 

DE 

F0D2 

10 

F4 


0147 


DJNZ 

DU2 , ' . 

F0D4 




0148 



. r 

F0D4 

OE 

20 


0149 


LD 

C,' 

F0D6 

CD 

DE 

F2 

0150 


CALL 

MPUTC- 1 

FOD? 

CD 

OE 

F2 

0151 


CALL 

MPUTC 

FODC 




0152 



* V 

FODC 

D1 


1 

0153 

, 

POP 

DE i\. 

FOOD 

06 

10 


0154 


LD 

b, i6 

FODF 

1A 



0155 

DU3 

LD 

A. (DE) • 

FOEO 

FE 

20 


0156 


CP 

/ 

F0E2 

38 

04 


0157 

' 

JR 

C» DU4 

FOE* 

FE 

7F 


015 $ 

. i •* 

CP 

07FH 

F0E6 

38 

02 


0159 


JR 

C.DU5 ; 

F0E8 

3E 

2E 


0160 

DU 4 

LD 

A,'.'/ • 

FOEA 

4F 



016l‘ 

DU3 ' 

LD 

C» A J .• 

FOEB 

CD 

DE 

F2 

. 0162 


CALL 

MPUTC:- 

FOEE 

13 



0163 


INC 

DE 

FOEF 

10 

EE 


, 0164 


DJNZ 

DIJ3 

F0F1 




0165 




F0F1 

7D 



, ' 0166 


LD 

AtL ■;> 

F0F2 

93 



0167 


SUB 

A i E . ; . 

F0F3 

7C 



016S 


LD 

A.H 

F0F4 

9A 


. •: 

: 0169 

• 

SBC 

A, D 

F0F5 

38 

OF 


•:«, 0170 


JR 

C, EXTEDJ 

F0F7 




0171 




F0F7 

CD 

53 

F7 

V 0172 


CALL 

KSTAT' 

FOFA 

■OO 

BE 

* 

V 0173 


JR 

ZtDUJ 

FOFC 

CD 

58 

F7 

0174 


CALL 

KEiREAD 

FAFF 

CP 

5.0 

F7 

0175 


CALL 

KBREAD 

FI 02 

FE 

IB 


0176 


CP • 

0 1 DM 

FI 00 

20 

B4 


V 0177 


JR 

NZ , PUI 

- 106 

13 

90 


0173 

EXTEDJ MR 

NX T CMO 

F 1 OS 




0179 

* 



-108 




0130 

: 


\ . 


EXP, O 


1 1/2/Cl 


addr> C<end_addr>3 


t start addfess *;*:• de 
save it 

get ending address to... 
...hi 

) rotrive. start address 

print address , 

print, hi byte 



print .1 o bvte 

/. 


save it 

print 16 bytes 
» print a space 


fetch the bvte 
print it 

increment pointer 
and repeat 

; space over a little 


retrive the address 
print this many by tes 
i fetch tiie byte 

; check for printable ascii i 
J ump if not i . i ; ; ! 

check for legal ascii' “ 

J ump i f so 

» everything else gets a period 
character to c 

increment the pointer . • 

? repeat > : m \ *■ 

check for end of dump . " 


; i ump if so 
l else check for . stop 

* i. • 

burn the ^irst character 

uM i t for the ne?:t 

the •* s cape key aborts us 


EXP, S 11/2/8.1 


F 1 03 




0181 

1 .JUMP - Jumr to an address. 

0 RET wi ll set. vou back 

Ft 08 




0182 


, 


F 1 03 




0133 

» comma nr s 

rrrtox* J <addr> 


^103 




0184 

J 



FI 08 




Ol 6 s 



■ , » ' * • . • 1 . . 1 ■ 

F 108 

CD 

ED 

F2 

‘ 010 * 

JUMP COLL 

OETADDR : 

yet the address 

FI OB 

38 

89 


0187 

JR . 

C , ERROR f 

Jumr if- error 

'MOD 

FB 



0188 

EX 

DE.HL ? 

address to hi 

FI OF 

cr. 

13 

FI 

0109 

CALL 

UL JUMP ; 

do the coll 

Fill 

IS 

c 3 


0190 

JR 

EXTEDJ 

get the next command Sl \* r .. 

FI 12 

E9 



. 01?1 

l-IL JUMP. JP 

<HL) 

. • . r . .. 

Fi 1 4 




0192 

1 


* * . ,• 1 . * . • . 

F I 1 4 




0193 




c !!4 




0194 

COPY 

PDL. CODE/ 1 

•J.’. ) .•*. * . 4 1 ; 

FI 1 4 




01?5 

! 



FI 14 




0196 

1 * Down Load to. memory from external device via parallel inport 

FI 14 




0197 

1 



FI 14 




0198 

1 command 

syntax* . p 

, •„ • V* , • . . 


fih oi5>9 5 

0200 l The data transfer format provided bv the transini ttins device 
FI 14 ; 0201 ? should be as follows: / . 

fi 14 0202 * ■ . ■ ' . *■' ; 

FI 1 4 02Q3 ? 8 bvtes OOh (null) . - •* \ * • V • 


FI 14 



02Q4 

J 

1 • " 

A5h sync character 


FI 14 



02Q5 

» 

2 

1 oad address 


FI 14 



0206 

» 

2 " 

byte count > ■ 

••• 

Ft 14 



0207 

» 

. 1 •• 

checksum for header • . 


FI 14 



0208 

1 

n " 

data to be transmitted (8 bits w/o parity) . 

. *1 

F114 



02Q9 

5 

1 

checksum for data * # . : * r . 4 

. ’ • * • * 

FI 14 



0210 

1 


' * . h .i * • * ; 

■ . 

FI 14 



0211 





FI 14 

FD 

21 39 F7 

0212 

PDLOAD LD 

I Yt DL0AD-P1BI AS . \ 


File 

CD 

D3 F7 

021^3 


CALL 

potpi 


Ft IB 

C3 

93 FO 

02(4 


JP 

NXTCMD 


FI IE 



021,5 

1 


*• • . • *■ 1 .* :• M 


FUE 



0216 


COPY 

TRM* CODE/ 1 . * . \ • : : •• ■/>.>, 


FliE 



0217 

? . 


:*'••• ’ * ... • ; 

: V.' 

FI IE 



0218 

5 

TERM - Something of a terminal command 



FI IE .0219 ? • Nothing fancy* a NUL ( contro 1 ) . wi 1 1 set you out 


FI IE 



, 

0220 

1 




FI IE 




0221 

1 command : 

syntax** t 



FI IE 


' ‘i. 


0222 

* 



/ ‘ V • 

FI IE 




0223 




■ 

FI IE 

CD 

53 

F7 

0224 

TERM CALL 

KSTAT • 

• 

f 

anything from the keyboard?- 

F121 

28 

OA 


0225 

JR . 

Z.TERM1 

• 

1 

try the 'serial port if not 

c t23 




0226 




• . , 

17 123 

CD 

58 

F7 

0227 

CALL 

KEiREAD 

J 

else get the character' / > * .*• . • 

F12£ 

B7 



0223 

OR 

A 

5 

check for NUL 

c \27 

28 

DD 


0229 

JR 

Z * EXTEDJ 

> 

nuit if so r . • 

F129 


' 


022 

0 


• 1 ‘v* , 


• ' *• 

^129 

4F 



• 022 

|1 

. LD 

C» A ft} 

» 

else send to the serial 1 port' |i' 

F12A 

CD 

20 

F7 

022 

h 

CALL 

SERQUT • 


•. ;i *. . ' : ' '■ 

F 1 2D 




, 023P 





‘M 2D 

CD 

01 

F7 

0234 

TERM1 CALL 

SERSTAT 

I 

anything at serial port?. 

F 130 

28 

EC 


0235 

JR 

2 . TERM 

• 

J uifir i f not * . 

Ft 32 




t 0236 





F| 32 

CD 

OA 

|7 7 . 

0237 

CALL 

SERIN 

' 

else t At...’ 

F 1 3T» 

IF 



5 0230 

LD 

C # A 



17 *36 

TO 

DE 

F2 

023,9 

• l * CALL 

MPUTC\ 

1 

, • . tu the screen 

F 1 39 

1C 

err 

i. V 


024 

0 

Jf: 

TERM •• 




l 


- 4 - 


Ft 3B 

F13B 

F13B 

Ft 3B 

F13B 

F13B 

F13B 

Ft 3B 

F13B 

F13F 

F141 

F141 

Ft 41 

F14 1 

F141 

Ft 4 1 

F141 

F141 

F145 

F145 

F148 

F14B 

F14E 

F14E 

F14E 

F14E 

F14E 

F14E 

Ft 52 

Ft 55 

F 1 53 

FI 53 

Ft 58 

F153 

F158 

Ft 58 

F15C 

F15C 

F15F 

F160 

F160 

Ft 60 

Ft 60 

Ft 60 

Ft 60 

Ft 64 

F166 

Ft 66 

Ft 66 

Ft 66 

Ft 66 

F 1 66 

F 166 

cr t66 

Ft 66 

Ft 66 

Ft 66 

Ft 66 

F16A 

Ft 6D 


FD 21 F0 F4 
18 04 


FD 21 AE F6 

CD D3 F7 
DA 96 FO 
C3 98 FO 


FD 21 5E F5 
CD D3 F7 
C3 98 FO 



FD 21 


CE F5 


CD D3 F7 
C9 


FD 21 99 F5 
18 F6.’ 


ED 73 B8 FE 
3? 80 FF 
06 00 


3 

l 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 • 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 
0233 

0284 

0285 

0286 
0237 
028 3 
028? 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 
029j? 

0299 

0300 

H 


EXP. 5 


11/2/81 


COPY CAS. CODE/ 1 

1 

1 CSAVE - Write a block of data to the cassette 
5 ’ 

5 command syntax? 5 <Iname> <start_addr> <Cend«addr> 


I Y> P1CSAVE-P1BI AS 
CCALO 


CSAVE LD 
JR 

f 

I CLOAD - Load a block from the cassette 

\ ■ ■ ? ’ 

1 'command syntax* L C<name> C<1 oad~addr>3 3 

t • • • - .:-r 


CLOAD LD 


I Y , P 1 CLOAD-P 1 B I AS 


CCALO CALL P0TP1 

JP C. ERROR 
JP NXTCMD 

» • i- ... 

» . 

I CAT - Catalogue a tape 
1 

CAT LD I Y» P1CAT-P1 BI AS 

CALL P0TP1 

*. JP NXTCMD 




5 RFILE - read ^ fill 


I Yi P1RFILE-P1BI AS 

: . . . . . 
v;- ‘ ‘ 


RFILE LD 
1 ‘ 

CCAL1 CALL. POTPl’v 

• -V RET . 

• ' • V * ' . • • 

* WFILE - Write a’ file 

t -\\‘ , • 

' . • •• • .■ • • 

WFILE LD I Y » PI WFILE-P1 BI AS 

JR CCAL 1 [■ • 


• • ; : • 

• * • ; . •> 
\v. ... ' :• » {,*;'* 

• ' . r * *• 

.. ' . •• 
•*.* ' v'j” / 




.7 v v 

:! • i. , ; i,::v I" ■;/; ; 




• t: • ‘ 

i“?v- „■ 

•• ; i" 

Kc- 


1 • r< - - ' • i, « I 

J WBLOCK - Write a block of data 
? ... ■ • ’ ! 

? entryi hi has address of the block : Y 

1 de has count . . 

? • • - • 

» exits- If carry is reset the block was written 
? else carry is set and the abort key was seen 

1 '• 


WBLOCK LD ( MSP > , SP . 

LD SP.ASTACK 

LD 8,0 , : 

...r :■ 

- ... ... • 


I init the checksum 

• ,-- 5 - . ■ • 


A 4. S Af W1 


F16F 




0301 




.7 ' 



F16F 

CD 

40 

F2 

0302 

WB1 

CALL 

CHKABORT 




F172 

38 

OD 


0303 


JR 

Ci WB2 , 




F174 




0304 






.’ i. ' . 

FI 74 

4E 



0305 


LD 

C, (HL) 

1 pet next byte 

1* * • 

.. t ’ 

FI 75 

79 



0306 


LB 

A» C 

5 compute the checksum 



FI 76 

80 



0307 


ADD 

A • B V - ! 


# . * ? 

■ ’ . ' V/‘ . ’ • • 

F177 

47 



0308 


ld 

B? A , f * 

t save the new checksum 


• 

F 179 




0309 







F 1 78 

CD 

AO 

F7 

0310 


CALL 

CASOUT 

1 write the data byte 


■ ' % ... 

F17B 

23 



0311 


INC 

HL v . 

I point to the next byte... 

. . •. . 

■ ’ . .1 •' 

F17C 

IB 



03)2 


DEC 

DE , 

9 decrement count 


I / 

F17D 

7B 



0313 


LD 

a. e ' 

l check for zero 



F17E 

B2 



0314 


OR 

D 


, • i . 


F17F 

20 

EE 


.0315 


JR 

NZ.WB1 

J 9 J ump 1 f count ! « 0 

>’ 


Fi 81 




. 0316 



• * 


\ 7 

. 1 ' \ , 

F181 

F5 


1 . 

0317 

WB2 

PUSH 

AF ■ 

9 save carry 


* 

FI 82 

48 



03)8 


LD 

Ci B 

5 else write the checksum 



F183 

CD 

AO 

F7 

0319 


CALL 

CASOUT 


• ... 

, . . 

FI 86 

FI 



0320 


POP 

AF i : 

9 restore carry 


J /' . 1 

FI 87 

ED 

7B 

B8 FE 

0321 


LD 

SP» (MSP) 



V ' | 

. ; 

F18B 

09 



. 0322 


RET 

.. ,• • 


•V'. ? 


F18C 




0323 

1 


-Vi; ;, • 




F18C 




0324 

1 


9 * 



• ; 

FI 80 




0325 

> RBLOCK - 

Read a bjock of data from the cassette 

' 


F18C 




0326 

• 

I 


, • { ' * 



fV 

F18C 




0327 

9 entry* de 

has byte 

count 

- . 

■ T’:-; , .. 

F18C 




0328 

1 

hi 

has 1 oad 

address 


, ' *.*«!• ’ 

FI 80 




0329 

1 





: i ( . 

F180 




0330 

1 exit* carry is set 

if abort key was hit 


. . , *.r . • 

FI 80 




0331 

1 

zero f 1 as is 

set if checksum is ok 



FI 80 




0332 

1 




* 


F18C 




0333 



• 




FI 90 

ED 

73 

B3 FE •• 

0334 

RBLOCK LD 

(MSP),SP 



. . /V. ■ . 

F190 

31 

80 

FF 

0335 


LD . 

SPt ASTACK 


• * • t 

F193 

06 

00 


0336 


LD 

B ’° *v 

1 in it check sum 


• •:.» ' • 

F195 




0337 



'*• 

! • ’ ’ 



FI 95 

CD 

40 

F2 

0338 

RBI 

CALL 

CHKABRT 

9 check for abort key' 


. . v '•* 

F198 

38 

22 


0339 


JR . 

C.RB2 

.... ' . • 


: . '• % 

F19A 

CD 

31 

F7 

, 0340 


- CALL 

CASSTAT 



... ; ,V • • 

F19D 

B7 



0341 


OR 

A 

• « 

1 • " 

• ) 

• *» •• .• • 

F19E 

28 

F5 


0342 


JR 

Z i RBI 



• > ; 

4 4 

FiAO 

CD 

8A 

F7 

0343 


. CALL 

CASIN 

9 set the next byte of data 

• 

’ ’ " 

FI A3 

77 



0344 


• LD 

. ( HL) t A j 

9 pIop it into memory • .*. ... ’ ' 

• ■/. ’ 


F1A4 

80 

i 


0345 


*' ADD 

AtB 

. 9 compute checksum . , 


'* ! i ' 

Fi A5 

47 



0346 


LD 

B.A /V 

9 save it • • 


• ’ ' v>-. v 

F1A6 

23 

' . i 


' 0347 


INC 

HL > .V‘. 

9 increment pointer ... » «,y \ 



F1A7 




0348 




V • . # k 

* * * w *•• t , ‘ 

• •• ' V • 


FIA7 

IB 



• 0349 


DEC 

DE 1’, 

9 decrement count 


i; ... .i , 

F1A8 

7B 

*• 


0350 


LD 

At e ; v • 

t , • 

. . /. ;f # (> 


Fi A9 

B2 



0351 


OR 

D - V 

. • ■ ... V •: i .. 


,.’‘v. .• ■ , 

FIAA 

20 

E9 


0352 


;i JR 

NZ t RBI 

9 Jump if not enoush yet 


'4 ' 

Fi AC 




0353 




• r 



FiAC 

CD 

40 

F2 

0354 

RB3 

CALL 

CHKABRT 

.... * 1 • i 

r 

. ' v. 

FiAF 

38 

OB 


0355 


JR 

C.RB2 ; 

\ •' i !• • \ T-, : . 

• i| . 

. " ! ' 

F1B1 

CD 

81 

F7 

035p 


• CALL 

CASSTAT 

• 1 ! ' ' . .. 

1 \ • 

# * 

F1B4 

B7 



0357 


OR 

A 




F1B5 

28 

F5 


0358 


JR 

Z , RB3 




FiB7 

CD 

8A 

F7 

0359 


CALL 

CASIN 

9 else set the check sum 



F1BA 

90 



036p 


SUB 

AtB *;». 

9 check i f ok 




FI BP 

B7 



03djl 

OR 

A 


Ft BC 

18 

7D 


0362 RB2 

JR 

SYNC4 


FIDE 




0363 5 




F1BE 




0364 1 


. . '4 • 


FI BE 




0365 ; WSYNC Write the sync 

header for the cassette ' 

F1BE 




0366 1 


... 

' . 

Ft BE 




0367 1 

It consists, of 128 

NULL's followed by an 0A5H .r. 

FI BE 




0368 ? 

sync 

brte ' ; 

. ‘ • , 

FI BE 




0369 1 



■ • . . i. 

FI BE 




0370 




F1BE 

ED 

73 

B8 FE 

037.1 WSYNC 

LD 

(MSP) , SP 


FI C2 

31 

80 

FF 

0372 

LD 

SPi ASTACK 


F1C5 

F3 



0373 

DI 

' • • * 


F1C6 

E5 



0374 

PUSH 

HL ! . '.V 

/ - : •• f'.y 

F1C7 

CD 

63 

F2 

0375 

CALL 

CIN1T 

1 do global cassette initialization 

F1CA 

21 

99 

F3 

0376 

LD 

HL » CXTIMER-P1 BI AS ; set it to cassette xmit timer,*.. 

F1CD 

22 

F2 

FF 

0377 

LD 

( INTV1 ) , HL 


FIDO 

21 

69 

FO 

0378 

LD 

HLt SPEINT-P1BI AS 5 set edge interrupt to dummy hand] 

F1D3 

22 

F4 

FF 

0379 

LD 

( INTV2) rHL 


F1D6 

El 


• '• 

0380 

POP 

HL ..V;.. . 

. *' ‘ • * ■ . " • -'x • ’ 

F1D7 




0381 




F1D7 

FB 



0382 

El 

V 


F1D8 




0383 


• 1 • • ■ 


F1D9 

06 

04 


0384 

LD 

B» 4 V" 

1 wait for awhile 

FlDA 

CD 

BA 

F2 

0385 WS1 

CALL 

DELAY- 

I % .«• •, 

F1DD 

10 

FB 


0386 

DJNZ 

WS1 

’ 1 * . * . ; • . > • 

FIDF 




0387 




FIDF 




0388 


• 


FIDF 

06 

80 

.1 

0389 

LD 

Bt 80H 

f send the 128 NULL's... . '* ; / 

F1E1 

OE 

00 


0390 

LD 

C,0 


F1E3 

CD 

AO 

F7 

0391 WS2 , 

CALL 

CASOUT. ; 


F1E6 

10 

FB 


0392 ! 

DJNZ 

WS2 . . 


F1E8 

OE 

A5 


0393 

LD 

C.0A5H 

1 and the 0A5H sync bvte 

F1EA 

CD 

AO 

F7 

0394 

CALL 

CASOUT 


F1ED 

18 

4C 


0395 

JR 

SYNC4 * 


FIEF 




0396 1 



. • • • ‘ • ■ . v 

FIEF 




0397 1 



■ • . , I . • ... 

FIEF 




0398 1 SYNC - Sync on the cassette header 

FIEF 




0399 1 



. ' , . ■ ‘ ‘ ' * . 

FIEF 




0400 




FIEF 

ED 

73 

LU 

Ll 

CD 

to 

. 0401 SYNC 

LD 

‘ (MSP)tSP 

. .. • , 

F1F3 

31 

80 

FF 

0402 

LD 

SP, ASTACK 

• : ' ' ' • • * " 

FIF6 

F3 



0403 

DI- 


1 . ' . ■ 

F1F7 




0404 


:: . i < 


F1F7 

CD 

63 

F2 

0405 

CALL 

CINIT 

? do global cassette initialization 

FIFA 




0406 



1 i 

FIFA 

CD 

BA 

F2 . 

0407 

CALL 

DELAY 

; wait for motor to speed up ' \ 

F1FD 




0408 



• * * ■ * ■ 

FIFO 

21 

8E 

F4 

0409 

LD 

HL, CSTIMER-P1 B I AS f set new level 1 vector 

F200 

22 

F2 

FF 

\ 0410 

LD 

( I NT VI ) , HL 


F203 

21 

7 A 

F4 

\ 0411 

LD 

HL> CSEDGE-P1BIAS I set new level 2 vefctor ! V ’ 

F206 

22 F4 

FF ... 

0412 

LD 

( INTV2 ) , HL 

i . i > t , • i i 

F209 




0413 




F209 

3A 

7F 

FE 

0414 

LD 

A, (SMASK) 

; enable edge detector intrerrupt 

F20C 

CB 

FF 


0415 

SET 

7, A 


F20E 

32 

7F 

FE 

0416 

LD 

(SMASK), A 


F2U 

D3 BE 


0417 

OUT 

( CASPORT ) , A 


F213 




0418 




F213 

FB 



04 1|9 

El * 

1 * i ’ . t# 


F214 




0420 






-7 


F214 

06 

40 


0421 

SYNC1 

LD 

B » 64 i 

* 

> 

look for 64 zero bits in a row 


F216 

16 

00 


0422 


LD 

Dt 0 




F218 

CD 

4E 

F2 

0423 

SYNC2 

CALL 

CRDBIT , 




F21B 

38 

10 


0424 


JR 

C. SYNCO 



.... 

F21D 

7A 



0425 


LD 

A» D 


i 

• . . . 

F21E 

87 



0426 


OR 

A 


; • . . . '* r . * • • . 


F21F 

20 

F3 


0427 


JR 

NZ r SYNC1 


• 1 . 


F221 

10 

F5 


0428 


DJNZ 

SYNC2 


. ' 1 ■ 

... • ' •*'*; ».*>: ' 

F223 




0429 





: ' . * v* . 


F223 

CD 

4E 

F2 

. 0430 

SYNC3 

CALL 

CRDBIT 

? 

now start shifting in bits looking * v \. * : ‘ 

F226 

38 

05 


0431 


JR 

C, SYNCO 

; 

for the sync byte (0A5H) 


F228 

7A 


» 

0432 


LD 

A.D 


,• - • 


F229 

FE 

A5 


0433 


CP 

0A5H 


‘ • ; • • ' • *-v/ r 

' ‘ . * 

F22B 

20 

F 6 


0434 


JR 

NZ.SYfJC3 




F22D 




0435 



• • J i * Y • • 


. • • •• ‘ 7< J *• <. ' 


F22D 

F3 



0436 

SYNCO 

DI 

'• ! */• 



.... 

F22E 




0437 





• * • •• "*. t - ; • 

• . 7 

F22E 

21 

05 

F4 i 

0438 


LD 

HLt CRTIMER 

-PI BIAS • 

■ . « * . 

F231 

22 

F2 

FF 

0439 


LD 

(INTVl)rHL 




F234 

21 

48 

F4 

0440 


LD 

HL» CEDGE-P1BI AS 

* •" ; vv :'? 1 • 


F237 

22 

F4 

FF 

0441 


LD 

( INTV2) i HL 


. - •• . .. 


F23A 




0442 



• # * 


. - . 1 .* • . . . . 


F23A 

FB 



0443 


El 



, .* ' 

• ‘s.'j* ■ 

F23B 

ED 

7B 

B 8 FE 

0444 

SYNC4 

LD 

SP. (MSP) 




F23F 

C9 



0445 


RET 



• • ' V V , . 

i . 

F240 




0446 

1 


’i'i/ r : . . 


•. ; 

• f. , . 

F240 




, 0447 

! 


i !* ; t 


■ r * V 

• t . . . . 

F240 




0448 

1 CHKABRT - Check for 

abort 

k«v (ESC) hit '• % 

’ \ •-* ’ ’ ' • 

• - • j . *f 

F240 




0449 

\ 

( for 

cassette routines) . 


F240 




0450 

1 





a, • . ; 

F240 




0451 

1 

Return carry set 

if abort key was hit . , ; v . . 


F240 




. 0452 

1 


i • *. 


5 , ‘ • ’ i • 1 1 

* . *i ■ - .» *• •• • . • 


F240 




045,3 





'• ‘ . ' ’ < . • >. * :[ • 

. \ >*y ' i . 

F240 

CD 

53 

F7 r 

0454 

CHKABRT CALL KSTAT 

1 

any kev hit?v k 


F243 

B7 



0455 


OR 

A 


• * ■ . • « * •; .A ' 


F244 

C 8 



, 045,6 


RET 

l 


return if not i i . 1 • 


F245 

CD 

58 

F7 

0457 


CALL 

KBREAD I* 

» 

else get the key 

' '{;*£ ' '* • > v - 

F243 

FE 

IB 


0458 


CP 

01BH 


is it the abort key? ' . 

. , *•.' 

. •• VV;’ ’ • 

F24A 

37 



■ 0459 


SCF 


• 

1 

(set carry) i . .L r ,‘ ' ,-V - 


F24B 

C 8 



0460 


RET 

1 

I 

return if abort key 

• ‘ 7' H . 

F24C 

3F 


. ' : •, r : 

0461 


CCF 


\ 

else clear carry / » ' .. , 


F24D 

C9 



0462 


RET 


1 , 

and return 


F24E 


i • 


0463 



*, ■ 


•; ... . i !, - t •; . 






0464 

, 




•• • ’ :*'• •** *•'; • ?, •. •' » 
1 » . • V • 

»* - ; . . ' 

P24E 


. , 

' 1 

0465 

1 




• V. V 


F24E! 




0466 

) CRDBIT - 

Read a bit 

from 

the cassette . • : •' ’*• /■•*/ i.vjrv ‘ . 

7 

F24E 


• ■ • ; 


0467 

1 

*; ‘ 

. >.•••; 

• ■ j., ■, 


• -■ ' '• : ' - 


F24E 


1 i 

' • . •*. 

0468 



• ’ f/'j ' • 


: • ;„v\ , . 

1 /• •• 7. • 

F24E 

IE 

00 


0469 

CRDBIT LD 

e. 6 . 

1 

clear flags . * * */ •. A- : ? ^ 

. 1 * ' 

F250 




0470 





- ' . • ' S .>V ; . . ; 

, ■ 

F250 

CD 

40 

F2 

0471 

CRDBO 

CALL 

CHKABRT 

? 

check for abort key 

7’ 7 . . 

F253 

D8 


» 

0472 


RET 

c *•'> 

J 

return carry set if hit 

• * 

F254 

CB 

7B 


0473 


BIT 

CSAWB.E 

? 

else did we see a clock bit yet? 

F256 

28 

F8 


047jj4 


JR 

Z, CRDBO ; 

» 

Jump if not !*,. u, j • • • . i 

* i 

F258 




04715 





• ! f - /i * 


F259 

IE 

00 


0476 


LD 

E, 0 

1 

reset saw bit flag 


F25A 




047,7 







F25A 

3E 

ED 


0478 


LD 

A, -19 

1 

wait ~ 1 • 2 milliseconds for the 

data bit (if anv) 

F25C 

D3 

BD 


0479 


OUT 

(RTC) * A 




F25E 

CB 

6B 


0480 

CRDB1 

BIT 

CTOUT ? E 

? 

waited enough yet? 

. 


- 0 - 


I— r\ 


1 A / 4L. / O A 


F260 

28 

FC. 


0481 


JR 

Z.CRDBl 

5 

Jump if not 


F262 

09 



0482 


RET 



• . 


F263 




0483 







F263 




0484 

1 






F263 




0485 

1 CINIT - 

Do global cassette 

initial izat i on 


F263 




0486 

i 




" * • . 


F263 




0487 






' t 

F263 

3A 

7F 

FE 

0488 

CINIT 

LD 

A, (SMASK) 




F266 

CB 

BF 


0489 


RES 

7, A • 

» 

disable edge detector interrupt 


F268 

CB 

DF 


0490 


SET 

3, A 

» 

turn cassette relay on 


F26A 

E6 

CF 


0491 


AND 

OCFH 

5 

sei: cassette state to mid 


F26C 

32 

7F 

FE 

0492 


LD 

(SMASK), A 




F26F 

D3 

BE 


0493 


OUT 

( CASPORT) , A 




F27 1 




0494 







F27 1 

AF 



0495 


XOR 

A 




F272 

D3 

BD 


04.96 


OUT 

( RTC) , A 

• 

, 

5 1 o p t h<=; realtime clock /. 


F274 

32 

3D 

FE 

0497 


LD 

(CRBC),A 

* 

clear recieve bit count 


F277 




. 0498 



f 

• S 1 • 


‘ • * v '. V . • • 


F277 

3E 

40 


0499 


LD 

A, MCRIP 


’ ’ . ; . • • . ' • v ; 

' -* ■ 

F279 

32 

72 

FE 

0500 


LD 

’ ( CFLGS ) , A 

I 

clear the cassette flags - 

. : ( 

F27C 




0501 






• 

F27C 

C9 



0502 


RET 



* •/ . . 


F27D 




0503 

I 


. ' J. ’ 




F27D 




0504 

1 


' • • 'if.:' '■ 


’ ' . ! U ’• 


F27D 




0505 

l WTAIL - 

Write the trai 1 er 

for the cassette , . 


F27D 




0506 

1 


. . ! i;: :■ ■ . 


. ' v \- .• 

• . s 

F27D 




0507 



. : i ■ 


■ ’ii ’ 

. • • i «,* • 

1 • : * \ . • 

F27D 

ED 

73 

B8 FE 

0508 

WTAIL 

LD 

( MSP ) i SP . 


• 'l ' . • i * 

• • j, r, ‘ 

F28 1 

31 

80 

FF 

0509 


LD 

SP, RSTACK 


• . * ,• 


F284 

06 

05 


0510 


LD 

B, 5 


1 * *’ 

4 ' • . • 

F286 

CD 

BA 

F2 

0511 

WT1 

CALL DELAY 


1 ...•■• * r • .• • , •; ■ • \ 


F239 

10 

FB 


0512 


DJN2 

: wti 


“*! * f ; < •* ’ • 

■* V' . • • 

F28B 

18 

07 


0513 


JR 

RTLl •• 


/ ’ ’ • •* * 


F28D 




! 0514 





■ Y * '• ' \ i ’ •• • 


F28D 


. . 


0515 

1 




■ , * • ' ' ' 


F28D 

, ' ‘ 



0516 

1 RTAIL - 

Finish up cassette 

read operation 


F28D 




0517 

1 


V 


i ' • ’ ’ . . ' . . 


F28D 




0518 

• 

. 





F28D 

ED 

73 

B8 FE 

0519 

RTAIL 

LD 

( MSP ) , SP 


• ‘ */ . . 


F291 

31 

80 

FF 

0520 


LD 

SP, ASTACK 




F294 

F3 



0521 

RTL1 

DI 




... 

F295 




0522 





/ ' . * ■ • • • ’• 


F295 

3A 

7F 

FE 

0523 


LD 

A, (SMASK) 


V ' ' . 


F298 

F6 

AO 


0524 

j 

OR 

OAOH 

? 

reenable edge detector interrupt and 

serial control 

F29A 

CB 

9F 

• v ‘ 

: «' 0525 


RES 

3, A ■ 

S 

...turn off the cassette motor V** 


F29C 

32 

7F 

FE 

\. 05126 

> 

. LD 

(SMASK), A 


• : U ; . . : i.;r ./ • . 


F29F 

D3 

BE 

( i *•. / 

o^7 

. . ! . 

OUT 

( CRSPORT ) , A 


' ‘ . > | . ! •//;!■: . . ) 5? ;■ . '*• • 


F2A1 




0528 





, ■ . . • ' ” * * ' : , ' v.i • i .. ‘ • 


F2A1 

21 

60 

F2 

; /* 0529 


LD 

HL.KTIMER-P1BIAS ? reset int T to keyboard timer . 


F2A4 

22 

F2 

FF i 

0530 


LD 

. (INTVl).HL 




F2A7 

21 

86 

FI 

■ .0531 


LD 

HL, SEINT-Pl B I AS 

I and int 2 to serial edge detector 


F2AA 

22 

F4 

FF 

0532 


LD 

( INTV2 ) , HL 




F2AD 


' 4 , ‘ 


0533 






, 

F2AD 

AF 



' 0534 


XOR 

A 




F2AE 

D3 

BD 


0535 


OUT 

■ (RTC), A 

J 

stop the real time clock 


F2B0 

32 

7E 

FE 

. * 0536 


LD 

( SFLOS ) , A 


clear serial flags 


F2B3 

32 

72 

FE 

0537 


LD 

( CFLOS ) , A 

J 

clear cassette flags 


F2B6 



l 

0538 







F2B6 

FB 



; ‘ 0539 


El 





F2B7 

C3 

3B 

F2 

0540 


JP 

SYNC4 





■9 


g ai*'« y 


11 / 2/31 


F2BA 





0541 


* 


F2BA 





0542 

; DELAY - 

Wait around for awhile 


F2BA 





0543 




F2BA 

C5 




' 054 4 

DELAY PUSH 

DC ‘ : 


F2BB 

01 

00 

00 


0545 

LD 

DC* 0 

'l ; ’ . ' 

F2BE 

OB 




0546 

DELY1 DEC 

DC 

• 

F2BF 

78 




0547 

LD 

A, B 

. i ■ ■ * 

F2C0 

B 1 



i 

0543 

OR 

C *• ' 


F2C1 

20 

FB 



0549 

JR 

NZ.DELY1 

I t 

F2C3 

Cl 




0550 

POP 

DC 

. : . i ■ 

F2C4 

C9 




0551 

RET 



F2C5 





. 0552 

? 

1 .. 


F2C5 





0553 

COPY 

SUB. CODE/ 1 

: ' •' •, V 

F2C5 





0554 

1 



F2C5 





0555 

; Oeneral 

subroutines 


F2C5 





0556 

; 


i 

F2C5 





0557 




F2C5 


: • 



0558 

? 

• * 


F2C5 





0559 

1 QETLINE 

- Oet a 1 lne of data to 

the screen 

F2C5 





0560 

1 



F2C5 





0561 




F2C5 

CD 

58 

F7 


0562 

OETLINE CALL KBREAD 


F2C3 

FE 

OD 



0563 

CP 

CCR 


F2CA 

C8 




0564 

RET 

Z V. • 

1 , 1 ’ 

F2CB 

FE 

5F 



0565 

CP 

✓ / 

1 

F2CD 

20 

02 



0566 

JR 

NZ , GL1 

; . • 

F2CF 

3E 

7F 



0567 

LD 

At 07FH 


F2D1 

4F 




0568 

0L1 LD 

Ci A 


F2D2 

CD 

DE 

F2 


0569 

, CALL 

MPUTC 


F2D5 

18 

EE 



0570 

JR 

GETLINE •• 


F2D7 



, . 


* 0571 




F2D7 





0572 


■ . ’ • / 


F2D7 





0573 

1 

• \ 

' ' . 

F2D7 



■»' 


0574 

1 CRLF - Put a carriage return followed bY a linefeed 

F2D7 





0575 

! • ■ 

* ' # 


F2D7 


ft 



0576 

. u • 

•» ’ • ' • 

1 '• 

F2D7 





0577 




F2D7 

OE 

OD 



0578. CRLF LD 

C» CCR 


F2D9 

CD 

DE 

F2 


0579 

CALL 

MPUTC 

‘ i ’ 

F2DC 

OE 

OA 



0580 

LD 

C.CLF ; 

' * - . 

F2DE 





•' 0581 

ifall thru 

■i 


F2DE 





0532 




F2DE 





0583 


• ;: ; V- 


F2DE 





0584 

1 ’’ -• •' 


* 

Fm 


, . ; 

4 1 


' 0509 

I MPUTC - i 

Stvt current (monitor) 

sp, change to 

FiUB 



1 


OBlH 

1 

vlilio ,»tacl< and call putchar 

P2DE 





0587 


• .V* ‘i ’ 


F2DE 





0588 

• 

1 •' 


F2DE 

ED 

73 

B8 

FE 

* 0589 

MPUTC LD 

(MSP), SP 

• # * , , 

F2E2 

31 

80 

FF 


059)0 

LD 

SPiASTACK 

, • ; I • ; • v-i ; ;:M 5 ; . 

F2E5 

CD 

5F 

F3 


. ! 05911 

. ’ CALL 

PUTCHAR 

• • 1 1 . ■ . 

F2E8 

ED 

7B 

B8 

FE 

0592 

LD 

SP, (MSP) 


F2EC 

C9 




0593 

RET 


: . 

F2ED 





0594 

1 

1 . 

• ’ • 

F2ED 





0595 

? 



F2ED 





0596 

? OETADDR 

- search the current screen line for 

F2ED 





0597 

\ an address. Skip nor blanks 

and leading spaces 

F2ED 





0598 

! • 


■ ’ • 


F2ED 

F2ED 06 0A 


0599 

0600 OETADDR LD 0, 10 r . 


F2EF CD 17 F3 

F2F2 03 

F2F3 

F2F3 

F2F3 

F2F3 

F2F3 

F2F3 

F2F3 


F2F3 

F2F5 

F2F3 

F2F9 

F2FA 


06 06 
CD 20 F3 
03 
EB 

21 00 00 


F2FD 
F2FD 1A 
F2FE CD 32 F3 
F301 30 OB 
F303 


F303 
F305 
F307 
F309 
F30B 
F30C 
F30D 
F30E 
F30E 
F30F 
F310 
F31 1 
F312 
F313 
F314 
F315 
F317 

F317 v 

F317 

F317 

F317 

F317 

F317 

F317 

F317 

F317 . ' 

F317 

F317 7E 

F318 FE 20 

F31A C8 . 

F31B 23 


FE 20 

28 05 
FE 3A 
28 01 
37 

EB 

C9 

29 
29 
29 
29 
85 
6F 
13 

18 E6 


0601 

0602 

0603 

060^ 

060? 

060$ 

0607 

0608 
0609 
06 1 Q 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 
.0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 
: 0647 

0648 

0649 

0650 


CALL FINDB 
RET C 
? fall thru 


1 


1 GHWORD - Get a hex word from the current screen 1 ine 

l . ' '• • _ ... ;•/ 

* • • ' ■ * ■ ' l.Vv 


OHWORD LD B « 6 ' 

CALL FINDNB 
RET C 
EX DE.HL 
LD HL» 0 

GHW1 LD A, (DE) 
CALL UNHEX * 
JR NC.GHW3 


• CP 
- JR 
V CP 
JR 
SCF 

GHW2 EX 
RET 

GHW3 ADD 
ADD 
ADD 
ADD 
ADD 
LD 

* ‘V INC 
JR 


2 , GHW2 

r a' : ~ 

Z,GHW2 
DE » HL 


HL» HL 
HLiHL< 
HL.HL 
HL» HU 

A* L ;.*• 

l.a ; ;/•- 
DE ’V 
GHWl .{'/* 

; ; 


5 skip upto 6 blanks 

? return if too many spaces' 
t oat screen address to de 
J in i t hi 

5 fetch the character 
? convert to hex nibble 
1 Jump if ok character 

» check for space . \ \ 

? return with carry clear 
» same for colon , 

I otherwize set the carry flag 


1 add in the new nibble ,; 


1 point to the next character 


I • ’ . ; . J •. 

l FINDB - skip upto 'b' non-blanks looking for a blank /, i 
I • ...... • * ' \ ..V 

1 , entry* b has maximum number of non blanks to skip 

I » hi has where to start looking . 

1 ‘exit* carr’y set if couldn't find one K »*? . ! * 

1 


FINDB LD 
CP 
RET 


. •v/.hS'C'-. 

A, (HU) 


Z 

INC : HU 


F31C 

10 F? V 

065 

1 DJNZ 

FINDB 

F31E 

37 :•*; 

06? 

2 . SCF 


F31F 

C9 

• ’ V* 065 

3 RET 


F320 

*». r* 4 . . • 

: /j 06q 

1 ' v* 


F320 


. J 065; 

P* 

. . •- 

F320 


065 

6 J FINDNB - 

Search 

F320 


. 065 

7 1 

1 , ■ »• 

F320 


065 

3 1 entry* b has 

F320 


' . 065 

9 « . :. • 

hi ha 

F320 


• 066 

■ • • ■ • • i 

-• i 

i ■ , . j t . 

3 1 : • 

*' • * V , 


I get the character ; 

I a space? • : ^ 1 

I . return if so T V :* \;;.; 

I else increment pointer I* 1 ./*: 

1 decrement b and repeat if not 


i set error flag 
» and return 


•:L- --i.: 


- 11 - 



done ’ 


.1 


F320 
F320 
F320 
F320 7E 
F321 FE 20 
F323 CO 
F324 23 
F325 10 F9 
F327 37 
F323 C9 
F329 
F329 
F329 
F329 
F329 
F329 
F329 

F329 FE 61 
F32B D8 
F32C FE 7B 
F32E DO 
F32F D6 20 
F331 C9 
F332 
F332 
F332 
F332 
F332 
F332 
F 332 

F332 CD 29 F3 
F335 FE 30 
F337 D3 ' . , 
F338 FE 3A 
F33A 38 09 
F33C FE 41 
F33E D8 
F33F FE 47 
F34 1 3F V* • 
F342 D8 
F343 D6 07 
F345 D6 30 
F347 C9 . 



0661 

0662 

0663 

066^ 

0663 

0666 

0667 

0668 
0669 

0670 

0671 

0672 

0673 

0674 
0679 

0676 

0677 

0678 

0679 

0680 
0681 
0682 
0683j 
068^ 
0635 
0686 

0687 

0688 

0689 

0690 
069 1‘ 

0692 

0693 

0694 

0695 
0696; 
0697| 
0698: 
0699 
0700* 
0701 
07021 
0703: 

0704, 

0705, 
0706* 

. 0707.: 


exits carry set if too many blanks 




A, (HL) . 

' *'.! *, . 
NZ ’ jj; 


FINDNB LD 
CP 
RET 

INC HL 
. DJNZ FINDNB 

SCF / ' 

RET '}? ' 

i V 


5 set the char 
5 blank? 

1 return if not 
$ increment pointer 
1 decrement b and repeat if not id 
! set error flag 


! UPSHIFT - convert char in acc; tb upper case if .lower case 
» al pha ‘ . . . . 


1 

UPSHIFT CP 
RET 
. CP 
RET 
SUB 
RET 


* 


1 


'a' 

c : .;; - 

<z'fl 

nc 

a • ' ;; 

• • i * • 




i v. ' 


1 


l UNHEX - convert char in acc to hex equivalent, returns 
1 carry set if illegal character 1 

i ' •' v ■ ' • • ‘ . •*./ ,• . 


■ i.’ 


UNHEX CALL UPSHIFT . 

'O', ;], T1 

c . * •* i 

'9'+l\ ■ '■ 
CfUNHl. ' 

U 

c ■ 

'F'+l ’ ■ - 

. .. *; . 

C ' 

A. 7 
A, '0' 


\ i- 


? check for legal digit 
1 re turn if less 


1 Jump If O '9' 

I check for hex alpha 


;■!, 




; CP 

• , • . RET 

CP 
JR 
CP 
RET 
CP 

*• CCF 
"• . , RET 
SUB 

UNH1 SUB 

RET . ' ! 

* • • ' ■ • i V . ' .. .. ' ; > . 

i ’ . • : •••’ : ' . ; . ‘ .. 

\ PUTHB - print the value in acc as it's two character hex 
1 equivalent , 

■ : . V'- - «•' ' ■ • . 


F>' 


■ • ■••• • -V. !’j i 

I return error if not fiex alpha 
1 subtract alpha bias 
? subtract numeric bias 


F348 | 


F348 F5 t \ 
F349 IF 
F34A IF ; 
F34B IF/ 

F34C IF 
F34D CD 51 F3 
F350 FI * 

F351 E6 OF . 
F353 C6 30 
F355 FE 3A 
F357 38 02 



07 

0711 

0712 
071 
071 
071 
07l!(b 

/ 0717 

0718 
07 3 9 

' : 07^j0 


, rh* 


( - 12 - 


EXP. S 


n/2/81 


* #, V . I 

F359 C6 07 0721, ADD A, 7 

F35B 4F 0722 PHN1 : LD C.A i ' ./ 

F35C C3 DE F2 0723, JP MPUTC 1 

F35F 0724' 1 - . 

F35F 0725 COPY VID. CODE/1 

F35F 0726. I . r ,• 

F35F 0727, » The driver routines for the video display 

F35F 0723 I . . 1 

F35F , . 0729 l The video display of this machine can be looked at as two 

F35F 073Q 5 pages of memory. 

F35F 0731 

F35F 0732 1 The first page contains the first 64 characters ( numbered 

F35F 0733 1 0 to 63 ) of each line ( numbered 0 to 23 ). The address of 

F35F 0734 i each character on this page can be mapped as follows* 

F35F 0735 ; Ovav-vS •*.. r ' ■/.*. 

F35F : v v 0736 I b b b b, b 1 1 1 1 1 c c c c c c v 

F35F 0737 ’ ;*j !• 

F35F v ; 073Sj 1 where bbbbb is the base address of the disp.lay ( 0F800H )» 

F35F 0739 1 11111 is the line address of the character and cccccc is the 

F35F 0740 1 column address of the character. . 

F35F ‘ ■ 0741 ! • ‘V. . ’ ' \j : • -.'Y- 


F35F ; 0742 I The second page of the display is harder to visual ize and 

F35F . 0743 » explain. It contains the last 16 characters ( numbered 64 to. 

F35F 0744 I 79 ) of each line. They say that one picture is, worth 1000 

F35F * ■ 0745 5 words so here goes. V . ■; 

F35F 0746 , ‘ 

F35F ‘ 0747 ? segment 0 segment 1 segment 2 • 

F35F 074$ 5 + + — + -+ 

F35F ', , 074? ! line 0 I FEOO • 1 ine 8 I FE10 line 16 I FE20 : I , 

F35F .Y 0750 1 + t- + + — -- + Y; 

F35F 0751 ; line 1 I FE40 : v line 9 I FE50 line 17 l FE60 ? ' I 

F35F . 0752 1 -f — + +— -- •' • 

F35F 0753 l I 

F35F , , 0754 1 + ; + + ■-? + 

F35F 0755 1 1 ine 6 I FF80 inline 14 I FF90 line 22 1 FFAO si * I V- 

F35F . . .. V- 0756 1 + : + + — h •; 

F35F 0757 1 line 7 I FFCO ' line 15 I FF DO line 23 I fFEO ; 4 I 

, F35F • . . ‘ 0759 I + t + : ---+ ' * 

F35F 0759 *! • ' ' ; !l * . 'T-v*V 

F35F I 0760 1 Note that the segment for the next line starts 64 bytes 

F35F • / . 0761 1 from the start of the current line except when there is 

F35F v . 0762 * a transition from say segment 0 to segment 1. It should 

F35F 0763 I also be noted that only the first 43 bytes of each 64 

F35F 0764 l byte page (lie OFEOOH to 0FE3FH ) are used by the video • 

F35F •>*. ;, • . 0765 i display, The ^address of a character on this pase is derived 

IS, : • . / • ; S/9 ’ . ■ ; - ; 

F35F ' ! r . 1 076^ • 1 V: bbbbbbbl 1 1 sscccc r ! ; '. 

F35F . \ 0769 ' • \ ' • -Y Y •••' 

F35F /,.• .y ‘ 0770 f where bbbbbbb is the base address of the page ( OFEOOH ) » !• 

F35F • .0771 5 111 is the line number the segment belongs to mod 8, ss is 

F35F v' 0772 l the segment the line is found in and cccc is the column 

F35F 0773 1 qumber of the character - 64. 

F35F 0774 1 

F35F , 0775 I . ; : : v -r* . 

F35F , 0776 1 a few equates before the real stuff 

F35F 0777 1 ' v - ‘ • ' ’ - . 

F35F . 0778 . . . r 

F35F •, ‘ 0779 PAGE1 EQIJ 0F800H l starting address of the first page 

F35F 0780 PA0E2 EQU OFEOOH 5 starting address of the second page 


F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 

F35F 


NUNES EQU 24 - 

LA3TLN EQU 23 
NGLINES EQU NLINES*3 


0781 

0782 

0783 

0784 

0785 

0786 NCOLUM EQU 80 
.0787 LASTCL EQU 79 
! 078S 

0789 ACURSOR EQU 

0790 

0791 COLOR EQU t 

0792 GRAF IX EQU 2 

0793 

0794 INVERT EQU 0 ! 

0795 • ' 

0796 

0797 1 define the special characters 

0798 : 1 . 




» number of lines on the screen 
; number of the last line 
I number of graphics 1 ines 

? number of columns per line 
5 number of the last column 

1 an underline is our cursor '7 

? hi bit in ShASK if color, on 
» hi bit in SMASK if graphics on 


» hi/bit in VFLOS if printing inverted char's 


; * 

• . »v', • 


•r, • 


J • 




CHOME EQU /A/ -040H 
CCLEAR EQU 'Z'-040H 


'K'-040H 

'H'-040H 

'L'-040H 


0799 

0800 
0801 

0802 CUP EQU 

0803 CLEFT EQU 

0804 CRIGHT EQU 

0805 

0806 

0807 

0808 

0809 

0810 
0811 
0812 

0813 

0814 

0815 

0816 
0817 
0318 


v' 1 ■ 


CCR EQU 
CLF EQU 
CDEL EQU 

CTAB EQU 
CE SC EQU 


OODM 
OOAH 
07FH : 

009H * 
01BH 


•*. ;.V. 


. . ;; \vy. 


' U ; A: r 
• ... • ;• 

PUTCHAR - write the character in c to the screen 




' c ’ ' 

on entry* . 

the character to write is in register c 


?>.» 


:-v v \ 


F35F 


: 


0819 1 


1 


F35F 




0320 1 

on exit* 


F35F 

, ' 1 

*' • 

i . . ' 

0821 1 

■•if the character was 

not special (ie. crt If* etc.) the 

F35F 




0822 1 

character f is on the screen and in register a.’ If the 

F35F 




0823 I 

character :*is special 

then the appropriate routine has 

F35F 




0824 \ 

been 

called. Note the 

these special character handlers - 

F35F 




0825 1 

should onlY.be called 

! from putchar • f .« 

F35F 




0826 1 

; ; . 


/. • •; 

F35F. 



i v ’ 

0827 I 

trashes a 

■ 1 * f -./ , . 

F35F 

■ ' ■? 



0828 1 

: f 

• «V/v • 

••■ *{ i *.• •:* • . • 

F35F 

_ ‘ 


l 

• 0829 



. * : ■’ 

F35F 

DD 

22 

B6 FE : 

0830 PUTCHAR LD 

(VIX),IX 1 

save the registers 

F363 

22 

B4 

FE-.‘ 

0831. 

. LD 

< VHL ) » HL 

• . .V 

F366 

ED 

53 

B2 FE 

0832 

LD 

( VDE ) » DE 

' ■' ;• * '• .* ' 1 • 

F36A 

ED 

43 

BO FE 

I 0833 

LD 

(VBC).BC 


F36E 



• • f. ■ ' ' , •• 

. 0834 


. ; • 

i ' • 

F36E 

DD 

21 

30 FE 

* 0835 

LD 

I X » VDATA 


F372 

2A 

30 

fe 4 

0336 

.*• LD 

HL» (CURPOS) 1 

remove the cursor 

F375 

3A 

32 

FE 

0837 

. LD 

A» (WASTHERE) ? 

put back char the cursor replaced 

F378 

77 

i ; 


0838 

LD 

(HL)»A 

• V • *. . ; 

F379 




' • 0839jj 


, h 

i 

check if processing escape sequence 

• * ■ i 

F379 

3A 

33 

FE 

00401 • . 

LD 

A.(ESCFLf)G) ] 


r 

’ *r 


1 • ■ •; 
* /" v 

.■ » i.-i. 1 ■ 


. • K 
.r ' 


V*. :-i 


-14- 


i, 


F37C 

B7 


084 1 

OR 

A 

F37D 

CA 

DA F4 

0842 

JP 

Z.PCO 

F380 



0843 



F390 

16 

07 

0844 

LD 

D, EESCTAB- 

F382 

CD 

76 F5 

0845 

CALL 

SWITCH 

F385 



0846 



F385 

01 


0847 ESCTAB DB 

1 

F386 

9D 

F3 

0848 

DW 

GTYPE 1 

F338 



0849 



F388 

02 


0850 

DB 

2 

F3S9 

2B 

F4 

0851 

DW 

GLINE 

F38B 



0852 



F38B 

03 


0853 

DB 

3 ; 

F38C 

32 

F4 

0854 

DW 

OCOL \ 

F38E 



0355 



F38E 

04 


0856 

DB 

4 

F38F 

42 

F4 

0357 

DW 

OCVAL .) 

F39i 



0858 


i 

F39 1 

05 


0859 

DB 

5 • • 

F392 

5E 

F4 

0360 

DW . 

GOY 

F394 



0861 


* ■ 1 

F394 

06 


* 0362 

DB 

6 ’f'V'i' 

F395 

65 

F4 

0863 

DW 

GGX '• 

F397 



0364 


> ‘ 

F397 

07 


0865 

DB 

7 Vj 

F398 

DC 

F3 

0866 

DW 

PBAI i 

F39A 



0867 



F39A 



0368 EESCTAB EQU 

$ , »■ 

F39A 



0869 


•* *' 

F39A 

C3 

45 F4 

0870 

JP 

ESDONE ; 

F39D 



0871 1 


• • ; <' . 1 

F39D 


; x - 

0872 1 get 

the type of the 

F39D 


y ■ : * .• ■ 

0373 


• • ! i . $!• 

F39D 

79 

' • /• 

0874 GTYPE 

LD 

AfC ; $ u 

F39E 

E6 

7F 

0875 

AND 

07FH 

F3A0 

CD 

29 F3 

* 0876 

CALL 

UPSHIFT 

F3A3 

16 

OE •*. ' 

; .0877 

LD 

D» ES1TAB-: 

F3A5 

CD 

76 F5 

0878 , 

CALL 

SWITCH 

F3A8 



0879 


• • • .»(• • t 

F3A3 

3D 


0880 S1TAB 

DB 

/ a / - v.i * ‘ 

F3A9 

D4 

F3 

0881 j 

DW 

ISEQUALj- 

F3AB 



0882 : 



F3AB 

41 


0883 

DB 

/A' j “ 

F3AC 

D8 

F3 

0884 . 

DW 

ISAiCTv . •' 

F3AE 



0385 


i •» 

. J 

F3AE 

43 


- * 0886 

DB 


F3AF 

E3 

F3 

0887 

DW 

isc . 

F3B1 



0838 



F3B 1 

47 


0889 

DB 

/ 0 / • 

F3B2 

FC 

F3 •> 

0890 ' 

DW 

ISO . - • 

F3B4 


. 1 * 1 * 

* 089.1 


‘ , t 

F3B4 

4A 

1 : 

0892 

DB 

'J' . ■[’ ' 

F3B5 

4C 

F4 ; 

- 0893 

DW 

ISJ • * 

F3B7 



0394 

/ 

*• j ... 

F3B7 

4B 


0395 

DB 

'K' : . 

F3B8 

53 

F4 

0396 

DW 

ISK ' ) 

• F3BA 



0897 u 


' Jr . 

F3BA 

4E 


0398 | 

DB 


F3BB 

02 

F4 

0399 f 

DW 

ISN , ‘ 

F3BD 



0900 1 


1. 1. 

r i 




-ESCTAB/3 | escape flag is set so process 
; the sequence 

; need type of escape sequence 

I ' \ 

; need 1 ine number for cursor address 

? need column number for cursor address 

• • < ;•»’ '. ! 

i l need color value * .V 

1 get graphics bit y value a 

’ j Vf 

5 geographies bit x value 
.1 put character as is 



escape sequence 



. ■ i. • 

S1TAB/3 l get count of state 1 ' tabl e ; ‘y 



F3BD 

4F 



0901 

DB 

'0' 



F3BE 

EB 

F3 


0902 

DW 

ISO 



F3C0 




0903 


' * . 1 • : 



F3C0 

52 



0904 

DB 

'B' 



F3C3 

08 

F4 


0905 

DW 

ISRSX 



F3C3 




0906 




• . * 

F3C3 

53 



. 0907 

DB 

'S' "■ -.i ' \ • 

V * / - v 

'• > f ‘ 

F3C4 

08 

F4 


0903 

DW 

ISRSX 


, • 

F3C6 




0909 



i i 

. i , t 


F3C6 

54 



0910 

DB 

'T' 



F3C7 

OF 

F4 


0911 

DW 

1ST • v 



F3C9 




0912 





F3C9 

56 



0913 

DB 

'V' 



F3CA 

F8 

F3 


•J 0914 

DW 

ISV . r *. ‘ 

• ' . . 


F3CC 




0915 





F3CC 

53 



0916 

DB 

'%'* i 

• •' • /• ' 


F3CD 

08 

F4 


0917 

DW 

ISRSX 

• / ' ■ . 


F3CF 




0918 





F3CF 

59 



0919 

DB 

'Y' : • 



F3D0 

19 

F4 


0920 

DW 

isv , :» , . 


} . ; 

F3D2 




0921 





F3D2 




0922 ESI TAB EQU 

$ ‘ 



F3D2 




0923 




. 

F3D2 

18 

71 


0924 

JR 

ESDONE f abort sequence if none of 

the above 


F3D4 




* 0925 1 


• • ' i \ 


* • 

F3D4 




0926 1 Start cursor address ins sequence 


. _ •’ * 

F3D4 




0927 


c ‘ 



F3D4 

3E 

02 


0928 ISEQUAL LD 

A. 2 • i i 



F3D6 

18 

6E 


0929 

JR 

SETESC 


'• » • • * 

F3D8 




0930 





F3D3 




0931 1 Put 

next 

character on screen /as is 


*• 

F3D8 




0932 





F3D8 

3E 

07 


0933 ISA 

LD 

A* 7 •v'\ . . 


’v 

F3DA 

18 

6A 


0934 

JR 

SETESC 



F3DC 




0935 




• j ; : 

F3DC 

AF 



0936 PBAI 

XOR 

A . - . • 1 stop escape sequence 



F3DD 

32 

33 

FE 

0937 

LD 

(ESCFLAO ) • A 


, • * . 

F3E0 

C3 

20 

F5 

0938 

JP 

PCOO v • \ • I 90 plop the character 

; ■ . 

» . 

F3E3 




0939 : 

i 

■ ' » ». ; ; 1 



F3E3 




0940 l Turn color.mode on 


. >?*>*• 

F3E3 




094 1 


• 4 t • , * ' / • .* 


t ■» 

F3E3 

CB 

85 


0942 ISC 

RES 

0»L 1 Force cursor address to even bvte 

• : .}■ . 

F3E5 

DD 

CB 

4F CE 

0943 . 

SET 

COLOR, (IX+SMASK-VDATA) ? set the color on 

bit 

’ . § • 

F3E9 

18 

04 


0944 

JR 

I SO 1 ; > • 


:V ; 

X 4 • 

F3EB 




0945 





F3ED 


i • j it 

, 

0946 l Turn color mod* off v» 



F3ED 




0947 


• • • r • • 


• * » *•* ;• 

F3EB 

DD 

CB 

4F 8E 

, 0948 ..ISO 

RES 

COLOR, < I X+SMASK-VDATA ) . 1 


* / . I 

F3EF 

F3 



0949 j I SOI “ 

DI 


' ; ; i. •* !..;:• * 


F3F0 

3A 

7F 

FE 

0950 f 

LD 

A, (SNASK) 1 ' : i »1 H- 


t ■ ' 

F3F3 

D3 

BE 


0951 | . 

OUT 

( OBEH) * A \J," 

• 

•• *«. • 

F3F5 

FB 



0952 

El 

. t • ■ 1 

, • * . , 


F3F6 

18 

4D 


0953 

JR 

ESDONE 


’ ’ ’ 

F3F8 




0954 




•' • 1 , 

F3F8 




0955 » Set 

value 

of color' bvte 



F3F8 




/• 0956 ( 





F3F8 

3F. 

04 


0957 »ISV ' 

LD 

A, 4 •'* ' * 



F3FA 

18 

4A 


0958 r 

JR 

SETESC r 



F3FC 




0959 




' . ( 

F3FC 




0960 1 Turn graphics mode on 




* • -i 


/• .* 


16 


EXPiS 


M/2/81 


F3FC 0961 


F3FC 

DD 

CB 

4F 

D6 

0962 

ISO 

SET 

GRAFIX, ( IX-tSMASK-VDATA) ; turn graphics bit on 



F400 

18 

ED 



0963 


JR 

IS01 



- • . ‘ 

F402 





0964 



• ! , 




F402 





0965 

5 Turn graphics mode off 




F402 





0966 





J • ! 

J / 

F402 

DD 

CB 

4F 

96 

’ 0967 

ISN 

RES 

GRAFIX • ( IX+SMASK-VDATA ) . 


. > * ’*• 

F406 

18 

E7 


, • 

0968 


JR 

IS01 ; 1 

• • ' . i *.• • > • . 



F403 





0969 



' I 

’• j- 



F40S 





0970 

1 Start graphics sequence 




F4 08 





0971 



. * 




F403 

32 

36 

FE 


0972 

.ISRSX 

LD 

(GCTYPE) * A 1 save 

graphics command type u 



F40B 

3E 

05 



0973 

LD 

A. 5 i next 

character is Y value:, . . 



F400 

18 

37 



0974 


JR 

SETESC 


4 


F40F 





0975 





' ‘ ‘ ’ 


F40F 





0976 

J Erase to 

end of 1 ine 

• .. . j 1 • . 

■ ■ ■ 1 • . 



F40F 





. 0977 




• ! : • ; '7 



F40F 

E5 




0978 

1ST 

PUSH 

hl -v ■ 

'» 1 ; • • :V : ' I 

• * •«. ; • * ■'. 

. 

F410 

CD 

B1 

F5 


0979 


CALL 

ATOLC : 

. ' . . J fi . 



F413 

CD 

EA 

F5 


0980 

i 

CALL 

CLRLN ,« 

• . • .. : , -.*/ v ; . • •' • 

: ' . • • ' 


F416 

El 




0981 


POP 

hl • •;;« 

r * \ 

. r V • •* ** • ' 


F417 

18 

2C 



l 0932 


JR 

; ESDONE - \ 


•,» • Y- . • 


F419 



: 

0983 

1 


r*. ; 

: ./V 7 , : •’ 

' A •* . 

• ' 

F419 





0984 

? Erase to 

end of i page 

• • IV 

: •. S 1 . •• • - 



F419 





0985 



•• . 



F419 

E5 



. 

0986 

ISY 

PUSH 

hl ‘ 




F41 A 

CD 

B1 

F5 


•0987 


CALL 

ATOLC 

' ' ; ■ ; V *f • 


’ i.: . 1 

F41D 

CD 

EA 

F5 


0988 

ISY1 

CALL 

CLRLN 

. \ . .... t 



F420 

OE 

00 



0989 


LD 

C,0 '' 

. ' . • .< : - v •• • • 

• (• -.i : • 


F422 

04 




0990 


INC 

B 

, ■ ' . • : .V*. j?*. .77 ' 


. *•' .-..-i 

F423 

78 




0991 


LD 

a,b. : ; 

• • r 7, y *•' 

V • . . 


F424 

FE 

18 

' * 


0992 


CP 

NLINES 

V* •’I"; 



F426 

20 

F5 



0993 


JR 

NZ • ISY1 •' 

1 ' ...1*1.'".; • ■ *1 


•' J ;; : * . 

F423 

El 




0994 


POP 

HL : • * 

'■ '• r ’ *;•' 



F429 

18 

1A 



0995 


JR 

ESDONE 

* • . * 



F42B 





0996 



• l? 

. • . ■ ... ■ 

■ ■ ‘ ; 'V 


F42B 





0997 

f Oe t 

1 ine 

value for cursor address y.J-- “v 

* ’■ v 

I. ; • 

F42B 





0998 





• ' ' * 1 - 


F42B 

DD 

71 

05 


0999 

GLINE 

LD 

( I X+GYVAL-VDATA ) « C 

■ •*,,,»• « t ' , . 

1 ' • v ' • 

• $ 

F42E 

3E ' 

03 



1000 


LD 

A» 3 - : 

.•j .: ;. *:• * . 

r 


F430 

18 

14 



1001 


JR 

SETESC 


• * i ’ \ j 


F432 





1002 



• '• , 

; , 1 1 ! | v l \ . 



F432 





1003 

1 Get 

column value for cursor address and set ' . . • • ; V: 4 

• » • . > 

• ’ 

F432 





1004 




• ' • • • s . 

’ ■•• * *•• ;, ’V 

< • ;/ 

F432 

11 

18 

IF 


. 1005 

GCOL 

LD 

DE.3U256+NLINES I 

load de with mask and max value . 


F435 

CD 

BE 

F4 


1006 

• • ; ' . < 

CALL 

CHKLINE 

’ , . • ,Y{ 

‘ v*' 


F433 

47 




, 1007 


LD 

B, A 1 save 

new line number .v J;/. 

• * • . * • 

•* i. 

F439 

CD 

C8 

F4 


. 1008, 

CALL 

CHKCOL, 1 check for valid column number 


* . • 

F43C 

4F 



, ■' 1 

’1009 


LD 

;.C» A f, I' ' (■ 


*. • ’ • ■ 


F43D 

CD 

88 

F5 


1010 

1 - . V* 

CALL 

LCTOA - 

. , :'L.. ’ . . 

• . IT' • • • » j “ *'• v 1 '•"■ 



F440 

18 

03 



1011 

/ 

JR 

- ESDONE l! f 5 done 

with escape' sequence • ,y 



F442 





1012 


* 

•V, t 

*' 

; ‘ ’ 


F442 


.**// 



v- 1013 

. ? Get 

color bYte value 




F442 




> . * 

Y 1014 





' • " l - • 1- 


F442 

DD 

71 

04 


/' 1015 

GCVAL 

LD 

( I X+CVAL-VDAT A ) » C 5 

get here to set the color 

value 


F445 




•*. ; 

• 1016 

5 JR ESDONE 

.1 fall, thru 




F445 





1017 



‘ * • . . : 





F445 1018 • •" 

F445 AF 1 1019 ESDONE XOR A I ?et here when done with sequence or- error 

F446 32 33 FE 1020 SETESC LD (ESCFLAGMA ? set new sequence value . 

■' • ‘ ' V- . • v ; - - 1 7- ' 




F4 49 

C3 

53 

F5 


1021. 


JP 

PUTC3 , 



F44C 





1022' 






F44C 





1023 

1 Start inverted video 



F44C 





1024. 






F44C 

DD 

CB 

4F 

56 

1025. 

ISJ 

BIT 

GRAFIX* ( I X+SMASK-VDATA ) ? don't do it if in graphics 

F450 

20 

F3 



1026' 


JR 

NZ * ESDONE 



F452 

DD 

CB 

07 

C6 

1027 ' 


SET 

INVERT. (I X+VFLGS-VDATA) 

F456 

18 

ED 



1028, 


JR 

ESDONE 


• • . .. . . . • • *;«••• 

F458 





1029,: 






F458 





1030- 

» Stop inverted video 



F458 





103i: 






F458 

DD 

CB 

07 

86 

1032' 

ISK 

RES 

INVERT. (IX+VFLGS-VDATA) 

F45C 

18 

E7 



1033! 


JR 

ESDONE 


/• .... t 

F45E 





. 1034.. 

1 




• ; ■/•i ' 

F45E 





1035* 

1 Get 

v value for sraphics 

s tuf f ’ • 

F45E 





' 1036:! 





).C ( 1 save Y value of bit 

F45E 

DD 

71 

05 


1037 ‘ 

GGY 

LD 

< IX+OYVAL-VDATA 

F461 

3E 

06 



1038;| 


LD 

A. 6 

•» 

next state is set X ■<' 

F463 

18 

El 



1039', 


JR 

SETESC 


: * • i; - 

F465 





1040:' 





-v 

F465 





1041" 

1 Get 

x value for -graphics 

stuff and diddle the bit 

F465 





1042, 





F465 

DD 

CB 

4F 

56 

1043;.G0X 

BIT 

GRAFIX. (I X+SMASK-VDATA) 1 graphics mode on? 

F469 

28 

DA 



1044,“ 


JR 

Z. ESDONE 

i 

abortifnot 

F46B 

11 

43 

7F 


10451, 


LD 

DE. 127*256+NGLINES 1 load mask and max value 

F46E 

CD 

BE 

F4 


1046 1 


CALL 

CHKLINE 



F471 





1047 






F47 1 





1048 ; 

if compute 

1 lne number of 

cel 1 for bit 

F471 


. 



1049; 






F47 1 

06 

FF 



1050 : 

GGXO 

LD 

Bi-1 i * 

1 

ini t line counter 

F473 

04 




1051 00X1 

INC 

B •••'!.:• 

1 

increment line counter 

F474 

D6 

03 


1 

1052 


SUB 

A, 3 

1 

cheapy divide and modulo by 3 , !• 

F476 

30 

FB 



1053 

• V 

JR 

NC.GGX1 


• • 1 tx ; f. 

F478 

C6 

03 



1054 


ADD 

A. 3 1 

1 

get mod. it's the bit number » 1 * 

F47A 

5F 

t 

• 


1055 


LD 

E.A ;v 

1 

save in e. b has line number 

F47B 



• ( 


'1056; 


. i" •*> 

/• 


; .1 • • ■' • \ 

F47B 





10571 

T compute « 

col umn number 

of 

ce 1 1 for bit ... . .. • 

F47B 





1058 

! 




1 ; v:0 - TL;;. : /ji ! : 

F47B 

79 




1059 

.V. 

i 

LD 

A»C i 

1 

get biased X value ' • 

F47C 

D6 

20 



1060 | 


SUB 

A,' ! V,. 


? remove bias 

F47E 

IF 




1061 j 

1 

RRA 

1 • 

1 

divide by 2 and even/odd bit to carry 

F47F 

CB 

13 



1062 

i 

RL 

E ■ ."’f'" 

1 

rotate even/odd bit into bit number 

F48 i 





* 1063 






F48 i 

CD 

CB 

F4 


. 1064 


CALL 

ccr ; 

? 

check for valid column - - ' • . • 

F484 





1065 



\ . • 



F484 

4F 




106& 1 

LD 

c . a . ! '* ' : 

1 

set column address • ' 

F485 

E5 




. 1067 

! . 

PUSH 

HL 

? 

save current screen address 

F486 

CD 

88 

F5 


1068 


CALL 

LCTOA ; . 

1 

get screen address of cell for bit 

F489 



• . 


1069 





• V * ! 

F489 

7E 

. « . 

‘ . 

. 

,1070 


LD 

a. (hl) •*: 

5 

check if nongraphic cell vet 

F49A 

17 


i • . 


1071 


RLA 

• • i* * , 

1 

get MSB to carry 

F48B 

33 

02 


j 

1072 


JR 

C.0GX4 

1 

Jump if graphics cell 

F40D 

36 

eo 



1073 


LD 

(HL) » 080H 

I 

otherwise make it one 

F48F 





1074 





1 V 

F48F 

3E 

80 



1075 

0GX4 

LD 

A.080H 

# 

Y 

get a bit in the most sig. bit 

F49 1 

43 




1076 


LD 

B.E 

1 

get bit number to b 

F492 

04 


1 ' 


•- 1077 


INC 

b . . . 



F493 

07 




■, 1078 

GGX5 

RLCA 


» 

rotate bit to next postition left 

F494 

10 

FD 



< 1079 


DJNZ 

0GX5 


decrement bit number. Jump if not zer 

F496 

5F 




1030 


LD 

e.a . 

5 

save mask in e 


- 18 - 


FA 97 

FA 97 3 A 36 FE 

FA 9A FE 53 

F49C 7B 

F49D 38 08 

F49F 20 03 

F4A1 

F4 A 1 B6 

F4A2 18 05 

F4A4 

F4A4 AE 

F4A5 18 02 

F4A7 

F4A7 2F 

F4A8 A6 

F4A9 

F4A9 77 

F4AA E6 7F 

F4AC 20 02 

F4AE 36 20 

F4B0 DD CB 4F 4E 

F4B4 28 05 

F4B6 23 

F4B7 3A 34 FE 

F4BA 77 

F4BB El 

F4BC 18 87 

F4BE , i . 

F4BE 

F4BE 

F4BE 

F4BE 

F4BE 

F4BE 

F4BE 

F4BE 3A 35 FE 

F4C1 06 20 

F4C3 A2 

F4C4 BB 

F4C5 D8 

F4C6 93 

F4C7 C9 

F4C8 

F4C8 

F4C9 

F4C3 

F4C8 

F4C8 ‘ *•:. 

F4C8 

F4C8 79 • 

F4C9 D6 20 * ; 
F4CB DD CB 4F 4E 
F4CF 28 01 
F4D l 37 
F4D2 E6 7F 
FA D4 FE 50 
F4D6 D8 
F4D7 D6 50 
F4D9 C9 
F4DA 


1081 

1032 


LD 

1033 


CP 

1034 


LD 

1035 


JR • 

1036 


JR 

1037 



103S 


OR 

1089 


JR 

1090 

? 


1091 

ISX 

XOR 

1092 


JR 

1093 

1094 

ISR 

CPL 

1095 


AND 

1096 

1097 

CHKMTY LD 

1098 


* AND 

1099 


JR 

1100 


LD 

1101 

G0X6 

BIT 

1102 


JR 

1103 


INC 

1104 


‘ LD 

1105 


LD 

1106 

00X7 

POP 

1107 


JR 

1108 



1109 

1 


1110 

1 CHKLINE ■ 

1111 

1 


111? 

1 


1113 

I 

. >. , : 

1114 

1 


1115 

1 1 1<6 

CHKLINE LD 

1117 


SUB 

me 


AND 

m? 


CP 

1120 


RET 

ii2| 


SUB 

1122 


RET 

1123 



1124 

l 


1125 

1 


1126 

5 CHKCOL - 

1127 

? ' 


1128 

» 

»• ; • V 

1129 



1130 

CHKCOL LD 

.113} 


SUB 

1132 

CC1 

BIT 

M33 


JR 

1134 


ADD 

H3p 

CC2 

" AND 

113 f> 


CP 

113,7 


RET 

1138 


• SUB 

113*9 


RET 

114b 




I 


exp.s 


11/2/81 


A» (GCTYPE) 

✓ o/ 

A» E 
C, ISR 
NZ, ISX 


» get graphics command type ( RtS or X) 
» check for set 
1 ( set mask ) 

1 Jump if command is R 
1 Jump if command is X . 


(HL) 

CHKMTY 

(HL) 

CHKMTY 


I command is set* set the bit 
* so check if cell is empty ’ • 

» command is exc 1 us i ve-or » flip the bit 


(HL) 


command is reset* complement the, mask 
...and reset the bit .. 


(HL) * A 5 

07FH ‘ , ? 

NZ.G0X6 ; 

(HL ). f 

COLOR* ( IX+SMASK 
Z > G0X7 
HL v- 
A* (OVAL) 

(HL) *A 

HL , 5 

ESDONE 


restore the cell 

check if the cell is empty 

Jump if not 

; else make the cell a space 
-VDATA ) 


restore screen address of the cursor 


Check biased line number in GYVAL for validity 
return valid line in A 

D has mask value* E has max line value 


A* (GYVAL) 
a* ' •, 

D 1 

E • si, 

C ’ • V v‘ 1 . ‘ 

a.e f . 


? remove bias 

keep i t 1 esal 

check for legal value 

return if legal 

else make it legal 1 


Check. biased co 1 umn ' number in C for validity 
Return valid column in A ; . . 


. i 


» Jump if not 
1 else adjust column address 


in <|ol or m 

/ * ! ‘ ; 


A.C • ; s v . * get the column address- 

Ai'n/ 1 remove ascii bias - r 

COLOR ,:(I*+$MASK-VDATA) I check if in qolor 
Z , CC2 : 

A, A 
127 

NCOLUM 
C 

A . NCOLUM 


ode 


r, r 


-19- 


EXP. S 


11/2/81 


F4DA 
F4DA 
F4DA 
F4DA 
F4DA 79 
F4DD E6 
F4DD 4F 
F4DE 28 
F4E0 FE 
F4E2 28 
F4E4 FE 
F4E6 30 
F4E8 
F4E3 F5 
F4E9 CD 
F4EC FI 
F4ED 
F4ED 16 
F4EF CD 
F4F2 
F4F2 0D 
F4F3 38 
F4F5 
F4F5 OA 
F4F6 90 
F4F8 
F4F8 7F 
F4F9 C2 
F4FB 
F4FB 08 
F4FC 5 E 
F4FE 
F4FE 08 
F4FF 67 
F501 
F501 OC 
F502 79 
F504 
F504 IE 
F505 22 
F507 
F507 1 A 
F§0§ DE 
F56A 

F50A 09 
F50B AO 
F50D 
F50D IB 
F50E D7 
F510 
F5 10 
F510 
F510 
F51 2 
F512 ' 

F512 
F512 DD 
F516 28 
F518 DD 
F51C 20 


7F 

73 

7F 

04 

20 

2A 


81 F5 


OA 

76 F5 


F6 

F6 

F6 

F6 

F6 

t 

F6 

F6 

F§ 

F6 \ 

F5 

18 3E 


1141 

5 end 

of e 

1142 

J • 


1143 

1 Get 

here 

1144 



1145 

PCO 

LD 

1146 

■»* 

AND 

1147, 


LD 

1148 


JR 

1149 


CP 

1150 


JR • 

1151 


CP 

1152 


JR 

1153 



1154 

PCI 

PUSH 

1155 


CALL 

1156 


POP 

1157 


« 

115$ 


LD 

1159 


CALL 

1 16Q 


• 


A* C 
07FH 
C , A 

2 » PUTC3 
CDEL . 

2 i PCI ‘ 

/ 

NC.PUTC 


AF 


5 keep the hi bit down 






I all other special characters are < space r. .. 


f most of the routines for ’ the 1 special 
, characters need line/column info. 


so set it here 


1161 

1162 

1163 


CHRTAB DB 
DW 


D.ECHRTAB-CHRTAB/3 


CCR . 
CR 


116^ . 

DB 

.CLF 

116? 

' DW 

LF 

1166 



1167 

DB 

CDEL 

1168 

DW 

del; ; • 

116? 



117Q 

DB 

CUP / • 

1171 

\ DW 

up •; 

1172 



1173 

* DB 

CLEFT ' 

1174 

1175 

DW 

LEFT,- 

1176 

DB 

: CRIOHT 

1177 

1178 

DW 

RIGHT ; 


v'i# 


• >i‘. • 

r~ 






\r M. .- 
». «• • • 

' * • *• i \ • : 

i* XV . ' 

! 

S . 


V, 


! 


DB 

,• dw 

DB* 

DW 

\ 

DB 

DW 

" DB 
. DW 


CHOME n 
HOME i ’j 

i* 1 * ! 

CCLEAR 

CLEAR 

j 

CTAB i V - 
TAB ; 

• ’! •• ’•{ 

CESC . ; ■; 

esc >•;.> 


- j . : » 

; . ( ; ' < . 
r 


'• ’ ’*• ' -I 
•'•T .. 


• ' ; .* * •• • 
... ■ ? .. i . i 




;»■: : V\*- • ’ • 

■ • Vi • ' 

• V" 


• -*v. ; •• . 

•r ;t r ' 

' ••• : - 

I- --M'-'v, 

• '■ ■ A , : 

• -I J'.’i • ■: •/ 






>,* i 




v 


ECHRTAB EQU $ ’ ,,.V* 

• • . • ■ v.^<; 

JR PUTC2' 


1 end of the table 


1 any characters .< ' <■ and not in table are ionored 


CB 07 46 
08 

CB 4F 56 
02 


1195 1 Oet here if characteer not special 

1196 

.1197 PUTC BIT INVERT, ( I X+VFLGS-VDATA > 1 check for inverted video 

1198 JR Z,PCOO , Jump if not in mode 

119? BIT GRAF IX, (IX +SMASK-VDAT A ) ? check if in graphics mode 

1200 •• JR N2.PC00 ? ifVso then don't set invert, bit 


/ - 20 - . ’ 


F51E 





1201 





• . 

F51E 

CB 

F9 



1?02 


SET 

7 ? C 

? 

set the invert bit 

F520 





1203 





• • • , 

F520 

71 




1204 

PCOO 

LD 

(HL).C 

? 

char was not special, place it on the screen 

F521 

23 




1205 


INC 

ML 

? 

point to next loc of screen 

F522 

DD 

CB 

4F 

4E 

1206 


BIT 

COLOR, ( IX+SMASK 

-VDATA) 1 check if in color mode 

F526 

28 

05 



1207 


JR 

2 , PC01 

» 

J ump if not 

F529 





• 1208 



• * • - 



F523 

3A 

34 

FE 


1209 


LD 

A, (CVAL) 

» 

else ne*t bvte sets the color value , 

F52B 

77 




. 1210 


LD 

(HL) , A 

» 

set the color * v 

F52C 

23 




1211 


INC 

HL 



F52D 





1212 






F52D 

7D 




1213 

PC01 

LD 

A, L 

? 

check for pase crossins .. ^ 

F52E 

E6 

3F 



1214 


AND 

03FH 



F530 

20 

09 



' 1215 


JR 

NZiPUTCl 

I 

Jump if no cross ins , | 

F532 





1216 





‘ ■ »,;.«** . r.’ 

F532 

2B 




1217 


DEC 

HL 


1 • 'V- . . 

. , \ ■ ' ; • • 

F533 

CD 

B1 

F5 


1218 


CALL 

ATOLC 

? 

else set line /column : .• 5 

F536 

OC 




1219 


INC 

C 

1 

set to next column • ■ * ' . 

F537 

C3 

50 

F5 


1220 


JP 

PUTC2 . 



F53A 





1221 





, ; • . • • *■ ' • . ■’* ' . 

F53A 

E6 

OF 



1222 

PUTC1 

AND 

OOFH 

f 

check for possible end of line ‘ : ,:V ... 

F53C 

20 

15 

1 


1223 


JR 

N2.PUTC3 


* k ' * * • - - ; 4/ «t . % • t 4+ • 

F53E 

7C 


' 


1224 


LD 

A, H 


* . • . ., / ‘ 

F53F 

FE 

FE 



1 1225 


CP 

PA0E2/256 

? 

check if off bottom of screen • 

F541 

38 

10 


\ 

. 1226 


JR : 

C.PUTC3 

* 

Jump if not . * . ‘.V V ‘ ' . t : 'V .' . 

F543 


■ * 



!":• 1227 





. - '• ‘/.'y • 

F543 

2B 




; 1228 

; r 

DEC 

hl 



F544 

CD 

B1 

F5 


1229 

' 

CALL 

ATOLC 


; .• •’ ;* . \ Vi* ' i: “> 

F?47 78 




1230 


LD 

A»B 


. ' • 

F548 

04 




1231 


INC 

B 



F549 

FE 

17 



1232 

. * ! 

CP 

LASTLN 


. . ... ,.; e- 

F54B 

D4 

28 

F6 


1233 


CALL 

NC, SCROLL 



F54E 

OE 

00 



1234 


LD . 

C.O 


i , .... . . 

F550 

CD 

88 

F5 


1235 

PUTC2 

CALL 

LCTOA 


• ' • • " *' ' • ’/ •••:.- .. * 

F553 





1236 



. '• • *■ *" ; 


■ * •}* • *. .. » 

F553 

7E 




1237 PUTC3 

LD 

A. (HL) 

1 

set character cursor will cover V.. 

F554 

32 

32 

FE 


12?8 


LD 

(WASTHERE) , A 

1 

save it | . \ . .. V/;/ 

F557 

CB 

FF 



1239 


SET 

7, a /; 

1 

set hi bit for cursor -V/ k 

F559 





1240 



4 '• 


. • • ;i ‘ • . . * •’ "• J. */•' 

F559 

DD 

CB 

4F 

56 

1241 


BIT 

ORAFIXi ( IX+SMASK-VDATA) , check for sraphics mode v , 

F55D 

28 

02 



1242 


JR 

Z , PUTC4 

1 

Jump if not in sraphics mode . iV. , .. 

F55F 





1243 



; : ; . 


• • ■ • * • 

F55F 

3E 

5F 



1244 


LD 

A, ACURSOR 

1 

when in sraphics mode use underline . l • 

F561 

1 




1245 






F561 

77 




1246 

PUTC4 

LD 

(hdVa 

| 

in 9065 the cursor . 1 ' * 4 

F562 

22 

30 

FE 


1247 


LD 

(CURPOS) ,HL 

1 

save current cursor address. 

F565 

ED 

4B 

BO 

FE 

1248 


LD 

BC, (VBC) 


'• . • • ' ’ v • ' ' v .* V- • . '* 1 • 

F569 

ED 

5B 

B2 

FE 

• . 1249 


LD 

DE, < VDE) 


, •. . i\ ;* L* • . ' ■ •* . • . 

F56D 

2A 

B4 

FE 


1250 


LD 

HL, ( VHL ) 


v • . • : ‘ 

F570 

DD 

2A 

B6 

FE 

• 1251 


LD 

IX. (VIX) 


’ i ’ **» . ‘ ’’ i ‘ ’ r . fj . 

F574 

79 




1252 


LD 

A • C ^ 

» 

return character In a and c ; •/ 

F575 

C9 




•!• 1253 


RET 

i ■ 


. .x 'f\. 

F576 





1254 

1 


' ‘ 'V 



F576 





1255 

1 


, »• : 1 • 


: . ' : : V i- ;| *f • *' “ v/V* 

F576 





1256 

1 SWITCH - 

scan a tab 1 e 

pointed to by the address on the top 

F576 





1257 

l 

of the stack. The 

character to match is in resister a 

F576 





1258 

1 


• *: 



F576 





1259 

5 

on entrYi . 



F576 





1260 

1 

resister a contains 

the character to find 


.!/ 


-21 


EXP. S 


11 /2/S 1 


F576 



1261 

5 


register d contains the number of entries in the 'table 



F576 



1262 

* 



! 


. • 

F576 



l^&S 

I 


on exit b 



F576 



. 1264 

1 


1 f a 

match is found then vector the the associated 



F576 



1265 

3 


address else return to the location following 



F576 



1266 

1 


the 

table , . 



F576 



1267 

; 





# 

F576 



...1263 

* 

• 

trashes d • . 


, . , 1 

F576 



1269 

5 






F576 



1270 







F576 

E3 


1271 

SWITCH EX 

(SP)iHL I get address of the table 



F577 

BE 


1272 

SW1 

CP 

(HL) 3 check for match ... 



F578 

23 


<. 1273 



INC 

HL 3 increment pointer . 



F579 

2 e 

07 

1274 



JR 

2»SW2 ? Jump if match '.‘/r 

'' ?. .• 

. v- 

F57B 

23 


1275 



INC 

HL 3 skip address part 

s. ‘ •' 

1 "• . 

F57C 

23 


1276 



INC 

HL /'• , •. \V.\ 



F57D 

15 


; 1277 



DEC 

D 3 decrement counter • «* • . 


, •••■ 

F57E 

28 

06 

'1278 



JR 

Z*SW3 3 Jump if end of table 


•y 

F580 

18 

F5 

1279 



JR 

SW1 I and try again 



F532 



. 1280 




. 'v ■ >, ' • 


; f 1*. . V 

F582 

56 


1281 

SW2 

LD 

Dt(HL)! s * 1 get low byte of address . * ' \\\ 

>* ; ’ ' • 

• / J t V.: 

F583 

23 


1232 



INC 

hl : . 


i y. • 

F534 

66 

' 4 

•/... 1233 



LD 

H» (HL) 1 get hi byte .* ’ - 

l' ‘ ' 

v. . .' . 

F585 

6A 


1234 



LD 

Lt D 



F536 

E3 


.‘‘•I 1285 

SW3 

EX 

( SP ) » HL ' . - V • 


. . • •, 

F587 

C9 


1286 



RET 

! ■ . . . * ' . * . . 


• . 1 ' 

F538 



i 1287 

1 



. ’ . . ' • . . 


*;• •• ; ’ • 

F588 



^ 1238 

1 



-• yv • : . ' . 


• 

F533 



1289 

1 

LCTOA - convert the line/column relative address in be to the 


F533 



1290 

? 

1 

actual memory address of the character. Note that no 



F588 



1291 

I 


range 

checking is done» this routine must be passed 



F5S8 


■ * 

1292 

1 

* . • , 

val id 

data. • •. *, fi • 



F588 



, 1293 

1 





r 

F588 



1294 

1 


on entry* . * 1 • * 

1 . 


F588 


1 

1295 

1 


b contains the line number of the character 



F588 



1296 

1 


c contains the column number of the character ‘ " s 

. •.* 


F589 



. 1297 

3 



J ...... .... 



F538 



* “ 129e 

\ 


on exit* • •• ‘ •« % 



F588 


, * 

1299 

3 


hi contains the memory address of the character 

• y *>». 

■v 

F588 



.'•* 1300 

3 

, *• r ' : 


• . .. . . . # • v *r 


j. . • . 

F583 



V. : 1301 

3 


.trashes d»h1 ‘ ’ . . 

»• •* * 

* 

F588 


1 ’• » : 

' ^02 

3 



1 • ; . . ■, • . . i r. 

• 1 "® I ' f| ‘ | , ‘ , . 4 S **'• 



F588 



1 3133 




• -i 1 . 

; 

. ;i 

u., ; / • 

F583 

79 

' ' v • 

1304 

LCTOA 

LD 

A»C l get the column address - r - 


y.v \ 

F5S9 

FE 

40 

1305 


, 

CP 

64 ‘ ; check if in tail end 


' •/ ' ^ •: 

F58B 

38 

16 ; : 

: : . 1306 



JR 

c,lctai ■ ' 


. . . 

F58D 



* ' 1307 




> J. t '.’T. , !. • 

■ ' * . ' 

■' v* ’ # ' j. 1 

F58D 



1308 

*3 

se t 

here 

when column is greater than 63 , . 



F58D 



’ 1309 




' \ \\ \ ... 



F58D 

66 

OF 

1310 



AND 

OOFH ; 1 strip out the least sig four bits 

( 0 

- 15 > 

F5SF 

6F 


1311 



LD 

L»A 3 they form the 4 least sig bits of 

the 

addres 

F590 

73 


‘ 1312 



LD 

A* B 1 set line number 



F591 

OF 


• , 1313 



RRCA 

1 shift out 2 lsb's of line 



F592 

OF 


1314 



RRCA 



’ ' .. ’■ 

p593 

57 

■ 

1315 



LD 

Di A ’ • 1 * ' ■ \ ‘ 




: 59t 6 7 
F597 7A 
F59S E6 CO 
«=-59A 05 



\ leave 2 Isb's of 1 ine 
j or'in column 


F59B 

6F 

1321 


LD 

L» A 


' . ’ • 

F59C 

78 

1322 


LD 

a,b 



F59D 

07 

13?3 


RLCA 



1 shift segment bits left one 

F59E 

E6 30 

1324 


AND 

030H 


Just 1 eave the ses bits , • 

F5A0 

B5 

1325 


OR 

L * •. 

5 

or to lo byte of address ‘ * . ' . • ’ ' . 

F5A1 

6F 

1326 


LD 

L 1 A • ‘ 


. . , , ' • h ’ •; •; V ‘ • : 

F5A2 

C9 

1327 


RET 



\ . . - . ' : ; : ; 

F5A3 


1323 



;.v : 


* . , . v * * .*• 

F5A3 


1329 

1 

set here 

when column 

is < 

64 • . ‘ 

F5A3 


1330 


! 




F5A3 

6F 

13?1 

LCTA1 LD 

L, A 

* 

column goes to lo byte of address . L 

F5A4 

78 

1332 


LD 

A» B 

? 

set line * , 

F5A5 

OF 

1333 


RRCA 



1 ijVust split the line number between hi and lo 

F5A6 

OF . 

1334 


RRCA 

• # 


F5A7 

57 

1335 


LD 

D» A 


• • f ;./:i '.V"’ V ; •- ’ 

F5A8 

E6 CO 

1336 


AND 

OCOH *. 

1 

leave 2 1 sb's of 1 ine •> :;*• . . • • ; : 

F5AA 

B5 

1337 


OR 

L 

1 

or with column ;v .. . v . • • 

F5AB 

6F 

133e 


LD 

L» A .. 

V 

to form lo byte of address ••• v ' • * 

F5AC 

7A 

1339 


LD 

A,D : /? 


• • . **! • »' 

F5AD 

F6 F8 

1340 


OR 

PAGEl/2^6 

1 

or y in base address of pase 1 

F5AF 

67 

1341 


LD 

H» A ;? 

t 

to hi byte of address ; . . * : 

F5B0 

C9 

1342 


RET 



‘ • - ; •*.>'* • ; ' . • 

F5B1 


1343 

? 

1 . 

• ' . ’.'M: .- 



F5B1 


1344 

I 




v • r .. 

F5B1 


. 1345 

1 

ATOLC - 

convert an address to the equivalent line/column 

F5B1 


1346 

1 

address. The same note as in LCTOA applies about ranse 

F5B1 


1347 

1 

checkins V 



F5B1 


1348 

1 




•’ * • l • * . . 

. p .y \;'4 

F5B1 


1349 

1 

. on entry* 



F5B1 


1350 

1 

hi 

contains the 

address to convert •* • ‘ 

F5BI 


1351 

1 


• ,1.. ' 


' ,;' A i: ••• • 

F5B1 


1352 

» 

on exit* 


' • ■' '■ »•* > ' ’ 5 . • f ■ 

F5B1 


1353 

1 

b contains the 

l i ne 

number 

F5B1 


1354 

5 

• c contains the 

coulmn number . 1 ' . . r' “ •* ’ • ; *• 

F5B1 


1355 

1 




- * *“> !*«. 1 . y '/• '• •* 

F5B1 


' 1356 

1 

trashes bcide 


■ * •• •• : 1 , ’ / V • • 

F5B1 


1357 

S 


. • ( 


. • ! • ! y . ; 

F5B1 


1358 



■ ^ }!; • .- ’ *' 


’ ■ » . r ' * 5 . .*/**• J 

F5BI 

54 

1359 

ATOLC LD 

D.H : 



F5B2 

5D 

1360 


LD 

EtL/V^. 


’ ' v • v .Vy 

F5B3 

7C 

1361 


LD 

A? H 1$ 

1 

check for pase one • * ./ . 

F5B4 

FE FE 

< 1362 


CP 

PA0E2/256 


* * i |‘ ■ * ’ 

F5B6 

7D 

1363 


LD 

A» L 

1 

always start with column ( the easy one ) jw ; M . f 

F5B7 

30 OB 

1364 


JR 

NC, ATOLl 

1 

Jump if pase two 'ri* . v •. . ' 

F5B9 


1365 





/ *. v : ; •- .... «• .. 

F5B9 

E6 3F 

1366 


’• AND 

63 . 

1 

strip off 2 lsb's of \ ine number ; . ; ; 

F5BB 

4F . 

.1367 


LD 

: Ci a 



F5BC 

29 • ‘ 

13^3 


ADD 

hl,,hl; : 

1 

shift hi 2 bits left. line ends up In h, ':-y 

F5BD 

29 . : • 

1369 


ADD 

HL» HL] .r; • 


•! ii' : i:r' i‘ 

F5BE 

7C • ' ‘ 

I 37 O 


LD 

a, h * '■; • 

1 

set line ! • • • ' ( •!' I( . • 

F5BF 

E6 IF ; 

1371 


. AND 

. 31 . ':V 

5 

strip base address , 5 •' /- ' \ \‘. ' • v.’*- * 

F5CI 

47 

1372 


LD 

B. A " 


>V*- *• 

F5C2 

EB 

1373 


EX 

DE. HL' ■ 


* ’* •' ’ / * 

F5C3 

C9 

1374 


RET 



• * ' . ** . 

F5C4 


1375 





• . . ; 

F5C4 


1376 

1 

set here 

when in pase two 

■ ..-V . • » 

F5C4 


1377 





1 . • : * ; ■ 

F5C4 

E6 OF 

137,8 

ATOLl AND 

OOFH 

1 

leave 4 lsb'sof column 

F5C6 

C6 40 

1379 


ADD 

A, 64 

1 

must be column 64 - 79 if in past two 

F5C8 

4F ( 

1380 

1 


LD 

C» A • ;■/ v 


* • .* 



• 1 

• 1 



, 


• - 23 -: , .• y , 


• . I 


F5C9 

7D 


1381 

LD 

A,L 




F5CA 

OF 


1382 

RRCA 



; Justify 

the segment bits 

F5CB 

E6 

ie 

1383 

AND 

018H 

1 

remove everything else 

F5CD 

47 


1384 , 

LD 

B.A ; : 




F5CE 

29 


1385 

‘ ADD 

HL,HL 

1 

shift al 1 

line number bits to h 

F5CF 

29 


1386 

ADD 

HLiHL 




F5P0 

7C 


1387 

LD 

A.H 




F5D1 

E6 

07 

1388 

AND 

007H 

i 

leave the 

1 i ne number bits 

F5D3 

BO 


1389 

OR 

B 

» 

or'in ses 

bits to form full line 

F5D4 

47 


>1390 

LD 

B» A 




F5D5 

EB 


1391 

EX 

DE.HL 




F5D6 

C9 


1392 

RET 






F5D7 

F5D7 

F5D7 

F5D7 

F5D7 

F5D7 

F5D7 

F5DB 


DD 36 03 01 
C3 50 F5 


1393 

1394 

1395 

1396 

1397 

1398 

1399 ESC 

1400 

1 . 


1 

I ESC - Start an escape sequence 
1 


LD 

JP 


( IX+ESCFLAG-VDATA ) * 1 1 set state to need second char 

PUTC2 


F5DE 




1401 

F5DE 




v * 1402 

F5DE 




1403 

F5DE 




1404 

F5DE 




1405 

F5DE 




1406 

F5DE 




1407 

F5DE 




1408 

F5DE 




1409 

F5DE 




1410 

F5DE 




' 1411 

F5DE 




1412 

F5DE 

\ 



• 1413 

F5DE 




1414 

F5DE 



' * 

1 1415 

F5DE 

01 

00 

17 

1416 

F5E1 

CD 

EA 

F5 

1417 

F5E4 

05 



1418 

F5E5 

F2 

El 

F5 

. 1419 

F5E3 

18 

38 


1420 

F5EA 




1421 

F5EA 




1422 

F5EA 




1423 

F5EA 




1424 

F5EA 



< 

; 1425 

F5EA 




1426 

F5EA 



} 

-iy 1427 

F5EA 




1428 

F5EA 

• . # t 



1429 

F5EA 


- 


•v 1430 

F5EA 



'X . ’ ’ 

1431 

F5EA 

C5 



1432 

F5EB 

CD 

88 

F5 

1433 

F5EE 

3E 

3F 


1434 

F5F0 

91 



1435 

F5FI 

38 

07 


1436 

F5F3 

3C 



1437 

F5F4 

4F 



1438 

F5F5 

CD 

06 

F6 

1439 

F5F8 

OE 

40 


„j° 


\ CLEAR - clear the video memory. Note that this routine relys 




on the fact taht the video memory effectivly ends at 
OFFFFH. 

on entry* v , - 

who cares • * • 

on exit* : ; 

the screens been cleare^ 

trashes a» b» hi 


, • v 

■ 5’ . ' 


f 


CLEAR LD BC»LASTLN*256+0 I set line/column to 23/0 
CLR1 , CALL CLRLN 1 clear a line 

DEC B 1 decrement line number 

JP P.CLR1 1 Jump if not , > 

' JR HOME I now home the cursor > • 


*• • 


1 CLRLN - Clear a video line starting at the current 
I column value ' * 


entry* bc t has line/column 
exit* the line has been cleared 


I 


■* ! 

• / 1 • 


•> :' r 

. V ' 

r V 

• \ - V 


CLRLN PUSH BC • 
CALL LCTOA 
. LD A. 63 
‘ SUB A,C " ’ 
JR C* CLN1 
••INC A . 

LD CiAv-r": 
CALL CLRMEM 
LD Ci 64 { 


1 save be 




1 convert to address . 

I compute positions to clear in first part of line 

... •; : r v ,u 

5 Jump if none .t ' 

.5 adjust count • • ’• - 

5 move count to c . . ' • . ' 

• clear the memory • * • ; 

I start column of second part, of line. 


- 24 - 


F5FA 

CD 

88 

F5 

1441 

CLN1 

CALL 

LCTOA 

5 

convert to address 



F5FD 

3E 

50 

• 

1442 


LD 

A» NCOLUM 

I 

compute positions to clear 



F5FF 

91 



1443 


SUB 

A» C 





F600 

4F 



1444 


LD 

C. A 

1 

c sets count 


: 

F601 

CD 

06 

F6 

1445 


CALL 

CLRMEM 

; 

clear tail end of the line 



F6 04 

Cl 



1446 

CLN2 

POP 

BC 

» 

restore line/column 

. v * ’ •’ : 


F605 

C9 



1447 


RET 





t . i * ■■ 

F606 




1448 







’ *• \ ; . ' 

F606 




1449 








F606 




:• 14 50 

J CLRMEM - 

Clear a block 

of 

memory. If we're in color mode . t . 

’ • ; •* ! ■ ' 

F606 


• . i. 


1451 


then 

set the color 

bytes to the currnet value 

, • ■ ' •• 


F606 




1452 





• - •• 

. • •. 


F606 




1453 

1 

on entry* 


• . * ,’ • * ■ 

/; • ;'.f ’■ : ; 


F606 

< * 

■ • 


> 1454 

J 

hi 

points to the 

block 

, ' ■ ‘ V 


F6G6 




1455 


c has the size of 

the block -X ; v V 

,{ 1 

v *‘ 

F606 




1456 

J 





■ * ' ■ ’ * 


F606 




1457 


on exi ti 





F606 




1458 

J 

the 

block has been cleared 

. • • 1 


F606 




1459 

1 







F606 




1460 


trashes a»c,de»hl 




J 

F606 




1461 

1 







F606 




1462 








F606 

54 



1463 

CLRMEM LD 

D,H 

I 

make copy of hi in de 


> • 

F607 

5D 



1464 


LD , 

Et L 


■ 


• V 

F608 




1465 



i ■ 


' it* . 

‘.-'s 

‘ ;V. " * 

F603 

36 

20 


1466 


LD 

(HL) , ' 


1 zap first character .r.’: . - 

. ' *, \ * 


F60A 

23 



1467 


INC 

hl 

1 

increment pointer 

‘ l •*, . 

• *‘r • 

F60B 

0D 



1468 


DEC 

C • • 

1 

decrement count •• 

• i. 


F60C 

C8 



1469 


RET 

• 2 \ 


• • .v - 

.. :• , V- v ,• 


F60D 

DD 

CB 

4F 4E 

1470 


BIT 

COLOR, < IX+SMASK 

-VDATA) f check if in color mode /■ ' ;* 


F611 

28 

07 


1471 


JR. 

Z.CLRM1 

! 

Jump if not ,i 

»* ■" * 


F613 




1472 



» # * * • .1 


• ; r, v. ,v • ‘ 

r . •** • 

’ " • ;.'j ' t * 

F613 

3A 

34 

FE 

1473 


LD 

A, (CVAL) 

1 

set next byte as color value 


• ’ ’* 

F616 

77 



” 1474 


LD 

< HL ) , A 1 


' V 

. ‘ • V V . 


F617 

23 


: ■ - 

1475 


INC 

HL • - • 

1 

increment pointer : *,v v 


• \ ' 

• • 

F618 

OD 



1476 


DEC 

C , * • !.'• ■ 

J 

decrement count V v . 


• V’* 

F619 

C8 



1477 


RET 

• Z " ‘ 




• ; ' ' . • 

F61 A 




* 1478 






1 v r 


F61A 

1A 



1479 

CLRM1 

LD 

A, (DE) 


/ • 



F61B 

77 



1480 


LD 

( HL ) * A 


.• ’ ' • -• 

• <. : . Ji 1 - . 


' i * ; 

F61C 

13 



1481 


INC 

DE i A*. • 


i ! ' *" ' ■ .‘i*; ’■ 

■ ' ■ » « *• 1 

. •• •• - • 

F61D 

23 



1482 


INC 

HL f s ■ 


. . •/ : ' ' * 

• \* 


F6iE 

OD 



1483 


DEC 

c . i ■” • 




‘ ' ‘ . 

F61F 

20 

F9 


1484 


JR 

NZ , CLRM1 


• ; * 


; , • ** 

F621 

C9 



1485 


RET 



• • i . -V • 



F622 




» ■*: I486 


•/ 

■ 


• • . • " v' t 


• > l • 

F622 


'•V '• 


1487 


* . ■ 

• • \* • t , " ‘ •• 


. . ; • . ‘ j.’;,. '*■ . v. ( 'V. /' ... . • •*; 



F622 


» . • ■ ; 


1488 

1 


• ‘i. . ■ 


• •' • : '• X • / r 



F 622 


* ■ *. 

v‘ 

’ 1489 

? HOME - position the cursor to the upper* left corner of 

the 


F622 


;t ; V 


: 1490 

1 

screen. , T ; 


. \ *; . 



F622 



• ; « 

1491 

; 




.• *• i *, • 


i! ’ 

F622 




1492 

? 

on entry* 



; ; • 

, t * 

F622 



. ‘ 1 , ‘ « 

i 1493 

1 

curpos contains the 

current address of the cursor 



F622 


• f 


1494 

i • , 

. wasthere contains 

the char which was were the cursor was . 


F622 

' • V < 

* i 


1495 

I » 


^ •' . 





F622 


• f 


. 1 1 496 

» 

on exit! ; . . 


• • • ' .. • ’ •; *. . ' 



F622 



\ \ ■ 

1497 

1 

the 

cursor is in 

the 

upper left corner . 

•. 1 * 

. . 

F622 




1498 

1 

curpos contains the 

new address of the cursor 


* ■ v ■. 

F622 




1499 

5 

wasthere contains 

the char which was in the upper 

left 


F622 




1500 

5 


• : ’ ! • • 


‘ . .'j,:'. : ! • *. 

• ; !' ' •' T . T -*' ‘ ; 






trashes hi 


F622 

F622 

F622 

F622 21 00 F0 

F625 C3 53 F5 

F623 

F628 

F62S 


F647 3E 04 
F649 0E 10 
FMB ED BO 


F650 
F650 7C 


1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 


HOME LD 
JP 


SCROLL 


HL.PAGEl 

PUTC3 


» address of the upper left corner 


scroll the screen up one line and clear the bottom 


F628 




. 1509 5 

1 ine 

< line 23). 


i . 

• t i 

F623 




1510 ; 




• i. . . . .. 

F623 

* 



. 1511 ; 

on entry* 


, . * i‘ * * • • 

F623 


! 


1512 ; 

uiho 

cares 


. • : * • ' • 1 • “ • ;• ; 

F628 


» 


1513 ? 




‘ • . . . . ; *• •• ;.’ •’ * . 

F623 


». . 


V 1514 1 

on exit! 



F623 




1515 ; 

the 

screen has been 


scrolled up one 1 ine and the bottom 

F628 




1516 ? 

1 ine 

has been cleared ; . 

F623 




1517 1 




•. -“Vv, •’ 

F628 




1518 S 

trashes evenythins 



F623 




1519 1 


’ ■ v" • ’ 



F628 



. 

1520 


• » / 


■ v t , * , * ‘ v : : ■ .* i 

F623 

11 

00 

F8 

1521 SCROLL LD 

DE.PAOEl 


point to start of page 1 y.; 

F62B 

D5 



1522 

PUSH 

DE " ; ' 

* 

t 

save it on the stack .. * • ’ 7'V : ’ 

F62C 

11 

00 

FE 

1523 

. LD 

DE.PAGE2 

5 

point to start of page 2 : 

F62F 

06 

00 


1524 

LD . 

Bi o ;; ; 

t 

initialize hi byte of count, V, ‘ 

F631 




152? 


, V . I • . 


! r • .. . :.*$ i; - 

F631 

21 

40 

00 

1526 SCI 

LD 

HLt 64 

1 

de has destination addresst . . . * L ’ . 

F634 

19 


. i • 

1527 

ADD 

HL.DE 

t 

...compute source address ’ \y. *• 

F635 

30 

04 


1523 

JR 

NCi SC2 

; 

J ump if no overf low ‘ 

F637 

21 

50 

FE 

1529 

LD 

HLt 64+PAGE2+16 

$ else compute new source address / v 

F63A 

19 



1530 

ADD 

HLt DE 


' . ; • • . • . . ; VS “ • / 

F63B 

E5 



1531 SC2 

PUSH 

HL 

5 

save source (next destination) *1 V 

F63C 

OE 

10 


1532 

: LD 

C, 16 

t 

set move count 

F63E 

ED 

BO 


1533 

LDIR 


? 

do the move v •* . 

F 640 

El 



1534 

POP 

HL ‘ V 


set next pase 2 destination address v v 

F641 

D1 

• /.' 


1535 

POP 

DE • ’• «* 


set page 1 destination address : 

F642 

E5 


1 ; 

1536 

PUSH 

hl , i y • 

? 

save pase 2 destination address ‘V* V* ' * 

F643 




1537 





F643 

21 

40 

00 

1538 

LD 

HLt 64. 

5 

compute page 1 source address 

F646 

19 



1539 

ADD 

HLt DE 




1540 

1541 SC3 

1542 


LD 
* LD 
LDIR 

DiQ 

LD 


A, 4 V 1 
C, li - 
ft ' 
N2.SC3 

? • * r *. 

A,H.‘ ■;? 


move line in 4 segment s 
move a segment . . . - • i . i 


,-Y- 


chock for more 

Jump if so 


* : r if • 


F651 

EB 

7 / a / . 

1547 


EX 

•DE.HLi.V. 

fir- 

. .• • 

F652 

D1 


, 1548 


' POP 

DE ! * \ 

1 else set pase 2 destination -v 

|,.y 

F653 

E5 

* • . \ . ■ i • 

154? 


PUSH 

HL ‘ * 

? save next pase 1 destination 

1 1 ” • . ’• .■ 

F654 

FE 

FE 

1550 


CP 

PAGE2/256 

' . i • • ‘ •. •, •; r * . 

; • ' +’> 

F656 

20 

D9 

1551 


JR 

NZi SCI * 

. ■ • •;* ■ * / '- 1 - 


F658 

El 


1552 


POP 

HL 

. * ■ • i. • 'v*' 


F659 



: 1553 




' • •• ^ ■) 1 


F659 

01 

00 17 

, 1 1554 


LD 

DC, LASTLN* 256+0 


F65C 

18 

8C 

1555 


JR 

clrln; 



F65E 



1556 

1 



.... • ' 


F65E 



1557 

1 


, ‘ 



F65E 



1558 

1 

UP - move 

the cursor up 

one line. If the cursor is currently 

F65E 



1559 

1 

on line 0 then the 

cursory wraps around to line 2d 

• •, 

F65E 



1560 

1 

* 

• • r\ 









. • . 1 ‘ 1 • 

-26-, • .. 

• 


EXP.S 11/2/81 


F65E 





15^.1 

; 

on 

entry s ( 


F65E 





15(^2 

i 

be 

contains the current line/column address 


F65E 





1563 

i 


' * * . 


F65E 





1564 

5 • 

on < 

exit* 

, . • * '*!*’• • 

F65E 





1565 

i 

the cursor is uf* one line 

*?’ : 

F65E 





, 1566 

5 




F65E 





1567 

» 

trashes a» b» ci'hl ... «/ 

• • . £ ’ l . 

F6 5E 




' ; 

1568 

» 




F65E 





1569 



• • ! ' ' • ’ ' *Y’ •'* '* 

.. J 

F65E 

05 




1570 

UP 

DEC 

B r ‘ ( ' ; 

‘ ;• 

F65F 

F2 

50 

F5 


1571 


JP 

P»PUTC2 1 check for wrap around 


F662 

06 

17 



1572 


LD 

D» LASTLN 1 go to bottom if it went off the 

top- 

F664 

C3 

50 


V* 

1573 


JP 

PUTC2 5 finish up . . 

v • • •. r, 

F667 



y ; : 

1574 



-.*r ■ •••-. 

■ *; V 

F667 





1575 



‘ V !“ • . ' . ‘ .... . 

• v-- ’j'//. , 

F667 





1576 

1 



1 *' • . • \ ' * 

F667 





1577 

1 LEFT - move the cursor one character position to the left. 

;V ’ - . '..*• >• A 

F667 


i 



1578 

1 

1 f 

it fall $ of f the left edge* put it on the right 

I/* - . ! • . ' • 'y . ^ 

F667 





1579 

1 


*' ’ 


F667 





1580 

1 

on < 

entryi • . . . • • 


F667 





1531 

3 ; v 

be 

has the current line column address 


* F667 





1582 

1 

- 

• ‘ |v .A.' ’ * • . 

: *'• *.-• «• j- 

F667 





1533 

i 'i : 

on i 

exi 1 1 ‘ •; • * [ 

r : i \ *•; • . V:\; 

F667 





1584 

I 

it 

's been done : % . 


F667 





1585 

i 


• * . • • • * * % ' *;• • 

*; •/ • • *-V - . ’ ‘ . 

F667 





1586 

i 

trashes a, b, c » hi . *v 


F667 




. 

1587 

i 


• • * * ■/. ... , 


F667 





1588 



• , • • v ‘- 


F667 

DD 

CB 

4F 

4E 

1589 

LEFT 

BIT 

COLOR i < IX+SMASK-VDATA) 1 check if in color mode 

i r *. • 

F66B 

28 

01 



1590 


JR 

• Z.LFT1 3 Jump if not 

• *. A ■ 

F66D 

0D 




• 1591 


DEC 

C 1 decrement column once for color 

mode .. 

F66E 

OD 




1592 

LFT1 

DEC 

c ' % •• 


, F66F 

F2 

50 

F5 


1593 

i 

JP 

PiPUTC2 1 Jump if column still positive 


F672 

3E 

50 



1594 


LD 

A»NCOLUM 1 else compute new column number 

*• • ■ •* 

F674 

81 

• . . 



.. 1595 


ADD 

A i C j 


F675 

4F 




1596 


LD 

C.A : . : ; • ’ 


F676 

C3 

50 

F5 


1597 

'• 

JP 

PUTC2 i- •• 

» •*’ ' f • . 

F679 





1598 

*» v 


• ' •' . . . ; .1 ' 

» • 

F679 





1599 



» ’ J /• , . ' ; J 

• ■. 1 

F679 





1600 

1 


• • ‘ *’ * i . i . . • 


F679 




i ' 

1601 

1 RIOHT - 

move the cursor right with wrap around > • 

\i •; • * ' . V . 

F679 




' :, 'v 

1602 

1 «. 


; •* ••••.-' • . • .. '• i .**•;. . . 


F679 

. ’V' 




1603 

» ; 

on 

entryi* .v- • * • •» 


, F679 




• • - v 

' 1*604 

i ,y 

be 

contains the current line/column address. 

•<* * r»»*. 

F679 





1605 

i 7 



y • . .’V ■ ‘ . 

' F679 




• • i 

16p6 

i it • 



•V;? ' • \ **• Of . : *i 

F679 



; i 

) ■ :• 

1607 




\ /<- • 

F679 

DD 

CB 

4F 

4E 

• j .1608 

RIGHT 

BIT 

COLOR, (IX+SMASK-VDATA) ’ ‘ ‘ 


F67D 

28 

01 

■ . i » , 


. 1609 


JR 

z , rti. • •• 


F67F 

OC 




’ 1610 


INC 

C . ^ ’• • ; • * .. ;• 

*■}.••> * ' . . i 

F680 

OC 


• t . 

.• ' ’ . S . 

.1611 

RT1 

INC 

C * , • ... • . 

•‘V. ‘ - • ■' . 

• F68 1 

79 


V ' ■ 


1612 


LD 

a • c '* • ; • 


F682 

FE 

50 



'1613 

.• • 

CP 

. NCGLUM . 

' ' '•* i " . 

• • i 

F684 

38 

02 



1614 


JR 

C.RT2 


\ F696 

OE 

00 


’ ■ :S 

1615 


LD 

C,0 • : • : • ••• ' •*. 


F6S3 

C3 

50 

F5 


1616 

RT2 

JP 

:• PUTC2 • ..:V : ; 


F68B 




i* 

1617 

* 


• i# % • , ^ % % f / • * .* 

V -\.A • ’ • . ’ . 

F68B 





1618 

3 


* ; ; • + . \ ' 


F68B 


• 



1619 

1 CR 

- process a carriage return 


F68B 





1620 

1 


• .• }■: .. . . . , /'• . \ 



* -‘is;:'.' ,; . . , v • .• -27- 


cAr.t. 


1 i/x'/yi 


i 


F68B 




1621 

1 

on entry* 




F688 




1622 

? 

be has 1 ine co 1 umn 




F68B 




1623 

1 - * 





F6SB 




1624 

» 

on exi 1 1 • /. 




F68B 




1625 

! 

-the cursor is in column zero 



■*, ••• ,v 

F68B 




1626 

5 

. j. . . 




F68B 




1627 

1 

trashes a*b»c*hl 



‘ . '' " 'i '' 

F6SB 




1628 

J 


• • . . -Vi .. 



F68B 




1629 






F6QB 

OE 

00 


1630 

CR 

LD C.O I set column 

to zero , / , , 



F68D 

C3 

50 

F5 

1631 


JP PUTC2 

•« •. i ’••••• 


, ‘i , 

F690 




1632 


. . • I * . 




F690 



\ 

1633 






F690 




1634 

1 


•i , - ■ .*•/» 

- 

• ’ •//’*> • 5 ‘’ 

F690 




1635 

» LF - process a linefeed 

- ■ *• 1 , . • 



F690 




1636 

1 

1 

: ' ‘>n n ! 



F690 




1637 

1 

on entry* s 

. •* 



F690 




1638 

1 

be has 1 ine/co 1 umn 




F690 




1639 

1 

4- 

-T+ 

X 

<o 

c 

o 




F690 




1640 

1 

' *’ . 


1 

F690 




164 1 

I 

be has new line column address. 

If cursor went off 


F690 




1642 

1 

bottom of screen* the screen was 

scrolled . 



F690 




1643 

» 





F690 




1644 

5 

trashes a*b»Cide*hl 

v*. • 



F690 


' . 


1645 

1 





F690 




1646 


•’ 

* v * ; ; : ' 



F690 

78 



1647 

LF 

LD A* B 

* ; 

i 


F691 

04 



* 1648 


INC B 


{ ' 1 * 


F692 

FE 

17 


1649 


CP LASTLN 

v r : ; 


: - 

F694 

38 

07 


1650 


JR C.LF1 

• ' r .: •/ • 



F696 

05 



1651 


PUSH BC * save column 

address •> .j. 


r . ■* 1 

F697 

CD 

28 

F 6 

1652 


CALL SCROLL 

• I. 1 


4 . , 

F69A 

Cl 



1653 


POP BC ; ' 

. r. . 


* 

F69B 

06 

17 


1654 


LD B, LASTLN 

)• 



F69D 

C3 

50 

F5| 

1655 

LF1 

JP PUTC2 

' "i ' “ i " 


. 1 . . • ' 

F6A0 




1656 

1 

• i ” 4-1 \ s', 

\ 



F6A0 


i 


1657 

? • 

1 . . . 1 • s • 

,1 

r\i 

. ‘ v '-’ * • 


. ■* ••'•«■ ‘ r t 

•,y ; » . V / . 

F6A0 




1658 

; TAB 

- process the tab character 




F6A0 




: 165? 

1 

I 'j ; . ; • • 

• ' ’ ' .V ‘ 



F6A0 




1660 

I , ’’ 

on entry* .‘.’vt. 




F6A0 




1661 

I 

be has current line/column 

•I • t : 

• 

‘v 

F6A0 




1662 

1 

.. . ; : 

• . .<• s’-'. , 


;; .. * v .- V-^' 

F6A0 




1663 

\ 

on exit* 'V ; ‘ ‘ 

* ■ , • 


' V;v*. 

F6A0 




1664 

1 

the cursor is pointed at the next tab stop 

• :• 

: ■ • • ■ y i 

Ti ' 

F6A0 




. 1665 

1 

• '•* | 



■A ; ’ * * . •* • *. * • 

F6A0 




. 1666 

1 

trashes a»b*c*hl 

’ * “ v ‘ ' 

' ‘ 


F6A0 




1667 

1 

•k • . u 

• l , . • , 

• ’ • 

‘ 

* * • 9 * ' t •• 

F6A0 




1668 


" L ' ' "*•/!, 



F6A0 

79 



1669 

TAB . 

LD A*C » set column 

addreess • * 


.* . . . • ' .-r UV . 

F6A1 

DD 

CB 

4F 4E 

1670 


BIT COLOR, < IX+SMASK-VDATA) t check for color mode 


F6A5 

20 

06 


1671 


JR NZ.TAB1 1 Jump if in 

col or mode 


. * • * . 

F6A7 



. r 

1672 





’ ~ •■•*.** 

F6A7 

C6 

08 


1673 


ADD A* 8 1 set column 

to next multiple 

of, 

eiaht - 1 ‘ 

F6A9 

E6 

F8 


1674 


AND -8 ‘-.'f 




F6AB 

18 

04 


1675 


JR TAB2 ;V 

• V * ‘ 5 . • ■ *• 


■ • ; 1 

F6AD 




•: 1676 


• V ;| 

: t. 



F6AD 

C6 

to 


16717 

TAB1 

ADD A* 16 ? set column 

to next mul t ipl e 

of 

s ixteen - 1 

F6AF 

E6 

FO 

•V • 

167B 

; 

AND -16 .1 

i '!• : . : ; J ' ; • ’ 

‘‘i , 


F6B1 




, 1679 


• * 


i \ 1 


F6B1 

4F 



1680 

TAB2 

LD C* A 



. 


I 


-28 


F6B2 

FE 

50 


1681 



CP 

NCOLUM 

? check if past end of line 

F6B4 

38 

09 


1682 



JR 

C.TAB3 

1 J urn** if not 

F6B6 




1683 






F6B6 

OE 

00 


16?4 



LD 

C.O 

1 else set column to zero 

F6B8 

78 



' 1685 



LD 

A i B ' ’ 

1 ...and increment line- number 

F6B9 

04 



1686 



INC 

D ’ 


F6BA 

FE 

17 


1687 



CP 

LASTLN 

? check if on last line . 

F6BC 

D4 

28 

F6 

16?8 



CALL 

NC, SCROLL 

1 cal 1 i f so 

F6BF 

C3 

50 

F5 

1689 

TAB3 

JP 

PUTC2 


F6C2 




‘ 1690 






F6C2 




1691 






F6C2 




1692 

1 



i ' 


F6C2 



, • • 

1693 

i 

DEL 

- process the delete characters 

F6C2 




1694 

l 



* ' * T-. 


F6C2 




1695 

• 


on entry* 


F6C2 




1696 

l 


be 1 

rias current 

line /column 

F6C2 




1697 

i 



: ' 


F6C2 




1698 

i 


on exit* F 

• i - i : 

F6C2 




1699 

1 


the 

previous, character has been deleted 

F6C2 




1700 

? 





F6C2 




1701 

? 


trashes a,b,c,h! 


F6C2 




1702 

• 

1 



• . • • 


F6C2 




1703 




. . 


F6C2 

DD 

CB 

4F 4E 

1704 

DEL 

BIT 

COLOR, (IX+SMASK-VDATA) ! ‘ V 

F6C6 

28 

01 


1705 



JR 

2 , DELO 

i ' * 

F6C8 

OD 



1706 


t . • 

DEC 

C ’ 


F6C9 

OD 



. 1707 

DELO 

DEC 

c . ; 


F6CA 

F2 

D7 

F6 

1703 



JP 

P, DELI 

1 • 

F6CD 

3E 

50 


1709 



LD . 

A, NCOLUM 

. ••• • ■ 

F6CF 

81 



1710 



ADD 

A, C 

F6D0 

4F 



, i7ii 



LD 

C , A 


F6D1 

05 



17\2 



DEC 

B ’ * 


F6D2 

F2 

D7 

F6 

1713 


.. >• . . 

JP 

P , DELI 


F6D5 

06 

17 


1714 



LD 

B, LASTLN 

• • . ' • 1 - . 

* . * ! - i 

F6D7 

CD 

88 

F5 

1715 

DELI 

CALL 

LCTOA 


F6DA 

36 

20 

i 

1716 



LD 

(HL),'. 

• ’ V • ' * 

F6DC 

C3 

53 

F5 

1717 



JP 

PUTC3 

* •• "* V • .. ... • : t .* 

F6DF 

, 



1718 

1 



r 

\ . * *" , . ’ ? 

F6DF 




1719 



COPY 

SER. CODE/ 1 

; . , •• ■}. ’ • 

F6DF 




1720 

5 



•: ' 


F6DF 

j 



1721 

1 

SELBAUD - Monitor command entry for selecting serial 

F6DF 




1722 

1 



baud rate 


F6DF 




1723 

1 



i 


F6DF 




1724 

1 

commadn 

syntax* b <0 

-i> . ; 

F6DF 



1 

1725 

» 




• . • • ‘ . • 

F6DF 




17?6 




•Vf : 


F6DF 

CD 

ED 

F2 

1727 

SELBAUD CALL OETflDDR 

1 get the .flag j , .. ■ 

1 J ump if none 1 * . jV j'i f • 1 

F6E2 

DA 

96 

FO 

1723 


\ 

JP 

C, ERROR 

F6E5 

7B 



1729 


' 

LD 

A, El 

•5 move it into A • y ' -"-'fa ' ;* • ! V 

F6E6 

CD 

EC 

F6 

1730 



CALL 

SERSEL ! . 

; select the value . .... j.'; 

F6E9 

C3 

98 

FO 

/ 1731 



JP 

• NXTCMD 

1 get next command . . , r 

F6EC 


•»' . 

>• •' , 

1732 






F6EC 




1733 





■ • * • »» 

• . • ' t ^ * • •’ ■ 

F6EC 




1734 

1 





F6EC 




1735 

; 

SERSEL - 

select the 

serial baud rate 

F6EC 



i . » 

1736 

i 





F6EC 




1737 

i 

usages call sersel 

. . .* ' 

F6EC 




1738 

\ 




* • ' * ■ . ; . 

F6EC 




1739 

i 

entry* a 

contains the baud rate selector . .j 

F6EC 




1740 

\ 


0 

» 300 baud 

■ 


29 - 


F6EC 




1741 

1 

1 

« 1200 baud 


F6EC 




1742 

; 




F6EC 




1743 

• exits the rate has been selected 

F6EC 


• 


1744 

» 




F6EC 




1745 

1 zaps* no 

thifjg : 


F6EC 




1746 

5 


’ . ' k;' . 

F6EC 




1747 





F6EC 

C5 



1748 

SERSEL PUSH 

BC 


F6ED 

01 

01 

0D 

174? 


LD 

BC, 13*256+1 

? 300 ,. • •• 

F6F0 

E6 

01 


: . 1750 


AND 

1 

* . .. ■ . . ; \v . • ... ■ .* ’ 

F6F2 

28 

03 


1751 


JR 

Z.SERS1 

. . ^ *' V s ' •• • t ■ • 

F6F4 

01 

02 

03 

’ 1752 


LD 

BC, 3*256+2 

5 1200 ’ :>'•*; * \ / ' ‘ 

F6F7 

79 



1753 

SERS1 

LD 

A, C 

. : ‘ ’ *■' ’ ■ .• 

F6FS 

32 

73 

FE 

1754 


LD . 

( CSRFF ) * A 

, •> • i‘,% . • •• ‘ • * • • 

F6FB 

78 



1755 

. . < 

LD 

A.B 

• ' .* • 

F6FC 

32 

75 

FE 

1756 


LD 

(SIC ) i A , 

•' \ /' •' • : ‘ 

F6FF 

Cl 



1757 


POP 

BC ' 


F700 

C9 



1758 


RET 



F701 




1759 



.•tv- ’ 


F701 




1760 



■ > • • • 

; * •„ _ •* *• • • • ' ( . 

F701 




1761 

S Get 

input/out routines . ’ 

F701 




1762 

1 



* « ‘ . i ■ • *' *t i s ! . 

F 701 




1763 



,1 ’ 

• ' , . / ;• . S'.!) 

F701 




1764 


COPY 

SER. 10/1 

• • • *• *•!. / > • 

F701 




1765 

5 


, • • • , , 

• ' • i • • f 

• •. ! :• *.y • • . * 

F701 




1766 

l serial port drivers 

: ‘ • • . . .‘ V : . ’ c. . .• 

F70 1 




1767 

» 



i:‘ *. ‘ 

. • V . •* 

F701 




1768 




• * v.--‘ • ’‘i. • 

F701 




176? 

SERPORT EQU 

OBEH, \ 

• . ’ • . ' 

F701 




1770 



» « ■ . ; 

• * * vv; * «*; . *. ’ ■' 

F701 




1771 

1 


1 V. 

. > . • ' .4 • ^ ..•••• < : ^ 

F701 




1772 

1 equate serial status 

bits for bit, set, res v 

F701 




177? 

1 


, ‘ •• : 


F701 




1774 



1 ... '} '» . 

•» ... , 

F701 




1775 

XSRL 

EQU 

o 

1 Xmit Shift Register Loaded . !. 

F701 




1776 

XBRL 

EQU 

•i ([v:,.. ' 

1 Xmit Buffer Register Loaded • j 

F701 




1777 

RSRL 

EQU 

2 '-v 

f Receive Shift Register Loaded - ; 

5 Receive Duffer Register Loaded ‘ l ■ 

F701 




1778 

RBRL * 

EQU 

3 ' I'li •,:•! , 

F701 




1779 

RLSB 

EQU 

4 

1 Receive Looking for Start Bit • •. v 

F701 




1730 



• ! j. '! 

• * , : .v ' *' .• ‘ 

F70 1 




1781 

1 



• ‘ *« 

F701 

- 



1782 

f equate serial status 

bits for masking ;i : • * ^ 

F701 




1783 

1 


. * i- ' • i M- • 

-•» * -* . *. , . 

‘ ’ • . . .*•; V- 

F70 1 


• ‘ , 


1784 



• • i • • • ; . 1 ... 1 

*•»; ,.•» • 

* • ■ • • * ■ .• *.■ • • . . i. * • . 

F701 

• •; 



1785 

14 XSRL 

EQU 

001H ?:• • 

. ‘ . .. ■ ' • 

F701 

t • ' 



♦ 1786 

MXBRL 

EQU 

002H / 1. • 

. . ■ . • , , •']/«'. • * 4 ‘ \ 

F70 1 




1737 

MRSRL 

EQU 

004H; 

■. . ' •, ■•••■•. ’ 4 : 

F701 


'' + ■ 

. r 

1788 

MRBRL 

EQU , 

. 008H <u - . 

• . 1 • , .'I", r .• . •• .. 4 . . 

F701 


| * * 


‘ 1789 

MRLSB 

EQU 

OlOHc 

; . .. i ■ 

F70 1 




1790 

1 

x 

\ 

/• ’ * ....'v'l'i • v *; ‘ ••*•... .•■ • • * 

F701 



•'/ • ' J • 

1791 

1 


' ‘ • • *'j J ’ • 

' ..•! : ' ‘ ' '■ •’ ••• ’• ;* . *• \ 

F701 




1792 

I SERSTAT - 

retcipn the 

• » v. S 

status of the serial input port 

F701 




1793 

1 



F70 1 




1794, 

i usage* call serstat 

. . • ■ r ‘ • l * 1 j V ’ • • * ' 

F701 




1795 

» 


■: i? 

I •’! 1 ,i • I • • ; . • • * 

F701 




1796 

1 entry* who .cares 1 

. 1 • . . • . •* . ..••■ 

F701 




1797 

1 


i. • 


F70 1 




1798 

1 exit* if 

a character 

js available res. a contains Offh 

F70 1 




1799 

1 

else a contains 

OOOh 

F701 




1800 

J 


... V». j . 

■ i . • • * . 




-30 


F70 1 





1801 

» 

zaps: a 


F701 





1802 

5 



F701 





1803 



‘ * . 

F701 

3A 

7E 

FE 


.. *1804 

SERSTAT LD 

A» ( SFLOS) 

F704 

E6 

08 



1805 


AND 

MRBRL - 

F706 

C8 




,• 1806 


RET 

Z “ • : - 

F707 

3E 

FF 



1807 


LD 

A» -1 ‘ 

F709 

C9 




1808 


RET 

• . 7 ' • •«**, * . • v 

F70A 





1809 



. i. . ' 

F70A 





•: lsio 




F70A 





1811 

1 



F70A 





1812 

1 

SERIN - returns a character from the serial port 

F70A 




*. 

1813 

1 


• - , . 

F70A 





1814 

t 

usaset cal 1 serin 

F70A 





1815 

1 



F70A 





1816 

1 

entry* who cares’ 1 . 

F70A 





1817 

1 



F70A 





' •, 1818 

1 

exit* the 

character is ree a ' 

F70A 





1819 

1 



F70A 





* * 1820 

1 

zaps* a 


F70A 





1821 

1 


. i‘ . • » • . * 

F70A 





1822 




F70A 

DD 

E5 



* 1823 

SERIN PUSH 

ix ' v • • *. ” ' : 

F70C 

DD 

21 

73 

FE 

1824 


, LD 

I X » SDATA 

F710 

DD 

CB 

OB 

5E 

1825 

S1N1 BIT 

RBRLi ( IX+SFLGS-SBATA) 

F714 

28 

FA 



1826 


.JR 

Z iS I N 1 

F716 





•1827 


. , 7 •• 


F716 

3A 

78 

FE 


1828 


! ,/ LD 

A.(RBR) r'/' 

F719 

DD 

CB 

OB 

9E 

■ 1829 


RES .•* 

RBRL» UX+SFLOS-SDATA) 

F71D 

DD 

El 



1830 


POP 

IX. 

F71F 

C9 




1831 


RET 


F720 





1832 

1 

• . • 


F720 





1833 

1 


. ^ *, • • •• ■ ’ • * **. ' ■ . . 

F720 





1834 

S 

SEROUT * - •* 

output the character in c to the serial port .1, 

F720 


* ■ 



1835 

1 


; •/ • . , ; * • • 

F720 





1836 

f 

usage* call serout » 

F720 





V 1837 



• • • . • < 

F720 





1838 

• 

entry* the character is in res c i. • ••/'• 

F720 


?■ 



* 1839 

i 



F720 





1840 

i 

exit* the character is going out the serial 

F720 

' i ■: '■ 




1841 

« 

port with 1 start bit and 1 stop bi t \ •' 

F720 

' *. ■ 




1842 

i 


•'••• • • . .V ' ' 

F720 





•. 1843 

\ 

zaps Just 

about everything * . . 

F720 





i 1844 

• 


'* • • . . • • . 

F720 





1845 



1 * * -•..#» . 

• • • * • • •j*\*-*- • • v 

F720 

DD 

BD 

•v* V 

* 

1846 

SEROUT IN 

A»(RTC) f ...and for DTR/DSR to be true •• 

F722 

CB 

7F 



1847 


BIT 

7, A ' . . * 

F724 

28 

FA 



/. . 1848 


. ‘ r . JR 

Z, SEROUT '• 

F726 

3A 

hi 

IL. 

W 


l .. 1849 


LD 

A» (SFLOS) 1 set serial flags • 

F729 

CB 

4F 



'1850 


BIT 

XBRLf A 1 wait for xmit buffer ree empty 

F72B 

20 

F3 

\ 1 




7« : - JR 

NZ ,;SERQUT . J. : ; >/. & M U \ ‘ ^ / 

‘i • ’ . | • ■’ t •i'T. •••■;: • •' 

F72D 

F3 



, ■ 

‘i* \ 1852 


. • D I 

F72E 

CB 

CF 



' 1853 


SET 

' XBRLiA 1 ' • . ' •.'Ij!,.;,: ' 

F730 

32 

7E 

FE 


J 1854 


LD 

(SFLOS). A • 'V' ■ 

F733 

79 




•V,.- 1855 


LD 

. A » C l load Xmit Buffer Register with 

F734 

32 

7B 

FE 


V‘ 1856 


/ LD • 

( XBR ) . A 

F737 





‘,•1857 



• • • 

F737 

3A 

7E 

FE 


1858 


LD 

A.(SFLGS) 

F73A 

E6 

15 



1859 


. AND 

MXSRL+MRLSBH1RSRL ; check for serial activity 

F73C 

20 

12 



1860 


JR 

NZiSOl j Jump if any going on ; 


'• 7f. 


sV'.* •. 


F73E 




1861 




F73E 

E5 



1862 


PUSH ML 


F73F 

2A 

F2 

FF 

1863 


LD HL»(INTV1) ; else save current 

1 e 

F742 

22 

BC 

FE 

1864 


LD <0IV1),HL 


F745 

21 

38 

FO 

1865 


LD HL* STIMER-P1BIAS 5 ...set vector 

to 

F748 

22 

F2 

FF 

1866 


LD ( INTV1 ) « HL 


F74B 

El 



1867 


POP HL 


F74C 




1868 




F74C 

3E 

FF 


1869 


LD A.-l 5 start rtc to transmi 

F74E 

D3 

BD 


1870 


OUT , (RTC), A 


F750 




1871 


.1 ' 


F750 

79 



1872 SOI 

LD A.C! | 


F751 

FB 



1873 


El . 


F752 

C9 


I 

, 1874, 


RET 


F753 




1875 1 




F753 




1876 


COPY KBD. IQ/1 


F753 




1877, » 




F753 




1378 \ 

Keyboard io handlers 


F753 




'1879 1 




F753 




ieso 


•* . 


F753 




1881 KDATA 

EQU OBCH " • * ' 


F753 




1882 RTC 

EQU OBDH 


F753 




1833 



* : 

F753 




1834 1 




F753 




1885 I 

KSTAT - return the status of the keyboard 


F753 




1886 1 


• V 


F753 




1887. 1 


on entry* 


F753 




1888 1 


who cares , 


F753 




1839 1 




F753 




1890 1 


on exit* '• 


F753 




1891 1 


if there is a character ready register 

a 

F753 




1892 \ 


else register a contains OOOh 


F753 




1893*1 


- • 'v;!, 


F753 



: - . : . 

1894,1 


trashes a 


F753 




1895 


. ' • f \ # • * i 1 * 


F753 

3A 

39 

FE 

1896 KSTAT 

LD A, (KDAV) . v 

' ' 

F756 

B7 



1897 


OR A . * ’ * • • V, 

, [ : 

F757 

C9 



, 1898 


ret \ 


F753 



, 

1899 




F753 




1900 


r‘ : ; » ' . V /* -V*. ' • 


F753 




; 1901 i 



■ ; ' 

F753 



# 

1902 ; 

KBREAD - read a character from the keyboard 


F753 




1903 » 


*. • ; ‘ 


F753 




1904 1 


on entry* v :•* \ 


F758 




1905 » 


who care 5 • . 


F758 




1906 1 


, . •••*• • 


F758 




1907 ; 

, 

on exit* f » . 


F753 



: '■ • » 

1903 1 


the character iB in the accumulator 


F753 




1909 1 




F753 


\ «. 4, ' 

’ ■ 

1910 1 


trashes a ' 


F753 




1911 1 




F753 




1912 


1 i • ?*f' . i . * . ' 


F758 

CD 

53 

F7 

1913 KBREAD CALL KSTAT . 


F75B 

28 

FB 


: 1914 \ 


jr z.kbrpad; ..... | -i 


F75D 

AF 



1915 

i 

XOR A : i ;! { ! 

1 

F75E 

32 

39 

FE 

1916 ! 


LD ( KDAV ) « A 1 


F761 

3A 

38 

FE 

, 1917 


LD .A,<KBVAL) 


F764 

C9 



1918 


ret 


F765 




1919 1 




F765 




1920 


COPY .PAR. 10/ 1 ' 



timer 


1 • 


. . * : *«/• 
r-i • 

'A 

': J i\; * ' ' *« 

VtV-. • 


•. ■: • 


' ’• ' 

•N' 

. . 




.! v -' 
V:-x- 




1 

• ! 

• V.i.'* 


•* i. 


i- f. .. 

- .? 

■ifr:." >:y 
r ; : ’Nr; 

XS,t • : ’ • 

/wvHHn-; 
• ;:v- ’ 

0*Li-v< ' 


• > . 


. • • Vj* 

. i 


. . r. 


..•* >'*,+*:* 
r* • • 

• ■ 


v -7 






.• H ' -I *• 

v'.; >>' 


; I '-.v 


r. •- 


,-^ v ! 

i 

*-V ) i 


U./XI ■ C 


n/i;/o a 


F765 

1921 

» 


1 



F765 

1922 

» 

parallel port.'io handlers 



F765 

1923 

I 





F765 

1924 





' V. . 

F765 

1925 

PARDATA EGU OBFH 1 the data port N 


• * ‘ ’ * '■ 

F765 • 

1926 

PARSTAT EQU OBEH 5 the status port 


• / ; ”•> ’ • 

F765 

1927 





■ ■ > • . ' . 

F765 

1928 

PARBUSY EQU 020H 1 parallel device 

busy,', 1 

i.. . • , • • . 

F765 

/ 1929 

PARIRDY EQU 040H 1 parallel input data ready 

F765 

1930 




1 • i 


F765 

1931 

* 


r ■ 



F765 

1932 

I 

PSTAT - If input data is available at parallel port returns* 

F765 

1933 

I 


Offh in accumulator, else acc. is 0 

i , . * 


F765 

1934 

5 


•* . 

• ! ’ • 

. 'v. * ’ ' 

F765 

1935 

; 


on entpyi : 


i . . ,y * . *, 

F765 

1936 

i 


who cares , 

. r ‘ 

• i • ‘ ’ •. *r •*' . • • 

F765 

1937 

* 


• • . • . ' 



F765 

1938 

• 


on exi t* 



F765 

1939 

• 


a has ffh & ‘Z flag set if data is ready, else a has 00 . 

F765 

1940 

i 




: . 

F765 

1941 

• 

» 


trashes a/ 


. . ;; a • * 

F765 

1942 

* 


.V 



F765 

1943 



• i ■' . 


. • . '>• ‘ 

F765 DB BE 

1944 

PSTAT 

IN A, (PARSTAT) 



F767 E6 40 

1945 



AND PARIRDY 



F769 3E FF 

1946 



LD . A. OFFH 


• . # . ..*■ / 

F76B C8 1 

1947 



RET Z 



F76C 2F 

1948 



CPL 


V , : ■ 

F76D C9 

1949 


... 

RET • 



F76E 

1950 



• • • •! 1 *• • 1 

4 . •’ 


F76E 

\ 1951 

1 



!■ 

■ 1 v.’, r . • 

F76E 

1952 

* 

PREAD - read a character from the parallel 

t char returned r — 

F76E 

1953 

1 

| .. 

in acc # * • ! 


.• •• .i • . \ . . 

r i ... j . . ' ; ' 

F76E 

1954 

1 


- • * 

•i 

1 ■ . . . 1 • 
i • ", ' ' 

F76E 

1955 

1 


on entry* , .. 

• ./i 

: ’ • : | | 


F76E 

1956 

1 


you want a character 



F76E 

1957 

1 


. .y m * 

•j 

i ' • .• . 

F76E 

1958 

1 


on exit* 

. * i 

1 . ’ * .V :• , . ’ 

F76E 

1959 

1 


it's in the accumulator \ 



F76E 

i960 

1 



, / ! . 

• v - /. f ‘ " 

1 • . • • ',**■. « • 

F76E 

1961 

1 


trashes a 1 ; j 

*. -i 


F76E 

1962 

1 




• t j ( . ' ‘‘ •; * 

F76E 

1963 




• ' .. 

;• )\ ?• 

F76E CD 65 F7 

1964 

PREAD 

CALL PSTAT 


r.; ^ v « . . 

F771 B7 

1965 



OR A . • . ’ 


; 

F772 28 FA 

1966 


• . 

JR • Z, PREAD ’ 

•' *;' > ; 
' ' 


F774 DB BF . 

1967 



IN A, (PARDATA) 


; . i' : : , v . 

F776 q? 

*968 



ret , 

■ . . 

. '*' ‘ s . ' 

mi ; /* 




: ( * »•_ 


* rl] . . . 

F777 . 

i970 

1 


! ' . 


- - _ • • « : 

F777 . ... -.*• 

v 1971 

• 

POUT - output the character in register c 

to the parallel . •/ . ; ; ? 

F777 ' 

1972 

; 


port. ■ ; ; . 

' y \\ , j 



F777 * 

1973 

i 

l 

! j i 


F777 

. 1974 

i 

1 

on entry? •• i • ’ ' ! 


i:W- - : V . 

F777 . ‘ 

1975 

» 


the character to be output is ree c '* 



F777 

1976 

i 



’ .1 


F777 

* ‘ 1977 

l 


on exi t * > f , 



F777 

1978 

i 

i 

it's been output 



F777 

1979 

i 


'V , 

J 'j 


F 777 

1980 

i 


trashs a . / 


. ' ' . 


• i • 


F777 



1981 

1 





F777 



1932 





, 

F777 

DB 

BE 

1983 

POUT IN 

A, (PARSTAT) 




F779 

E6 

20 

1934 

AND 

PARDUSY 



* • ; • i • 

F77B 

20 

FA 

1985 

. UR 

NZ.POUT 



. ’ ’ * .* 1 

F77D 

79 


1986 

LD 

A i C 


.. 

. • •• 

F77E 

D3 

BF 

1987 

OUT 

(PARDATA) ,A 



‘f ’ • . ‘ ’ . . i 

F7S0 

C9 


1988 

RET 




, ... ' y 

F781 



1989; 

1 




’ • i 

F731 


. . . 

1990 

. COPY 

CAS. 10/1 



* • 

F731 



1991 

\ 

. 7 ■ 




F7S1 



1992 

J equate the cassette io 

port 

' • • 4 

F781 



1993 

? 




• • ■ * *•••*. •. • 7' ' ’ . ' •> . . •• 

F731 



, 1994 





■ . • " '• ' ; • • •• 

F781 



1995 

CASPORT EQU 

OBEH 



• . : "• . . 

F731 


■i ■ 

1996 


• i • 



• i, ‘ . 1 * • 

F781 



1997 

1 





F731 



' 1993 

» equate cassette status 

bits for bit» set» res 

F781 



1999 

1 





F731 



2000: 


•tj 




F731 


* 

' 2001 

CXSRL EQU 

o . : . 

? 

Cassette 

Xmit Shift Resister Loaded \ ! ' . 7I ,: ' 

F731 



2002 

CXBRL EQU 

1 ; : ' 

5 

Cassette 

Xmit Buffer Resister Loaded ' I';;.', ' . 

F781 



2003 

CRSRL EQU 

2 ! 

1 

Cassette 

Receive Shift Resister Loading 17 * * ; 

F781 

v 


2004 

CRBRL EQU 

3- • 

\ 

Cassette 

Receive Buffer Resister Loaded 

F781 



2005 

CDATB EQU 

4 •. 

1 

Cassette 

DATa Bit (type of bit DATA or ICLOCK) 

F781 


• : • • . 4 

‘ 2006 

CTOUT EQU 

5 17'"- 

? 

Cassette 

TimeOUT flag \ { ,“7 

F731 



2007 

CSAWB EQU 

7 

1 

Cassette 

SAW Bit • , ’ .7, 7 -7' : * : :.f7 , 7 - 

F781 



2008 


. 1 



v/ •; • ' v : *■ ;.• ••*!. ’ ; l * 

F781 


• • 

. 2009 i 

1 1 ' 




• ! . ‘ • ’ ■ : : ' 7 * . .. 7 /’O 

F781 



; 2010 

* equate cassette status 

bits for masking ^ 

F781 


• - “ •» • 

. 2011 

\ ; *7 ; 

.1 \ > 4 



i‘ ' '• • .y. • * '* % \ •’.* •.» 

F781 

' *• 


v 2012 


1 :« • 



. : ! ’ . 1 : •' • ’ • • 'v.V7 

F781 

' ■ 


2013 

MCXSRL EQU 

001H ' 




F781 


7,7.. . 

2014 

MCXBRL EQU 

002H V 



. • '' ■ { 7" 

F 781 



2015 

MCRSRL EQU 

004H 7,7 




F731 

v 

. i 

2016 

MCRBRL EQU 

008H ' • 



. . ..\ . 1 . ,• * : 

F781 


i.’-; . 

j 2017 

MCDATB EQU 

010H 1 



• . W l’ ; ‘ • . 1 ‘ - • •;> 7* 

F781 



2018 

MCTOUT EQU 

020H ; ;■ 




F791 


t 

\ . 2019 

NCR IP EQU 

04 OH < 



. % r : r . .• 

F731 

' • 

1 

i 2020 

MCSAWB EQU 

030H if; 



. .. •! if • r-' 

F781 


i 

2021 

\ 

*’ i ‘ : 




F781 

’ - 


2022 

i 

• • • ’ X ' 1 



• • '• !vi /* •. • ! 7* *'• 77,7 

F781 



2023 

I equate masks Tor cassette 

s tates 

. *. 

F781 



2024 

1 ‘ • r ; 

•f •• 1 ! |* • 



. ■ ‘ 7 * * ' ■ 

F781 



2025 


.r 



• . 7 • *' 7 '* • ’7’\ 

F781 



2026 

XCSTATE EQU 

OCFH 

i 

mask for 

removing cassette state' 

F781 


i 

■ i 

2027 

CSTATE EQU 

030H 

•» 

mask for 

obtainins cassette state • • ;v' , 

F781 



. * > 2028 

CLOW EQU 

020H \ 

f 

sets cassette line low . 7 A . 

F781 


* ’ ' 

2029 

CM ID EQU 

OOOH ;?•* ‘ 

• 

sets cassette line to the mid point ‘ 

F781 

. ; .• 


• 2030 

.CHI 1 EQU 

01 OH, J,*,/ 

i 

sets cassette line hi .i -A* -A. 

F781 


*’ « ” , ’ 

2031 I 

'« I ;• 




1 j. ; , 5 || 7,7. ,1 • r > 

F731 



2032 

J 

1 \ ' 



! ! , V • . • ‘ , 

F781 

• 

, * . / 

2033 

1 CASSTAT - 

return the status of the 

cassette input port 

F781 



. .2034 

I 

7- : • . 




F781 



2035 

• usasei call casstat 




F781 



2036 

\ 





F78i 



2037 

» entry: who cares 



‘ i . j • 

F781 



2038 

t 





F781 


* 

2039 

\ exit: If a character is 

available 

res. a contains Offh 

F781 



2040 

5 else a contains OQGh 



- 34 - 


Exr-.s 


i 1/2/81 


F781 





2041 

a 

1 




F781 





2042 

1 

zaps* a 



F78 1 





2043 

? 




F7S1 





2044 





F781 

3A> 

72 

FE 


2045 

CASSTAT LD 

A» (CFLGS) 


F7S4 

E6 

08 



2046 


AND 

MCRBRL 


F786 

C8 




2047 


RET 

z . ,v 

* i 

F787 

3E 

FF 



2048 


. LD 

A,-l 


F789 

C9 




' 2049 


RET 

/. 


F7SA 





2050 




F78A 





v 2051 

• 

1 




F7SA 


* # 



2052 

» 

CASIN - returns a character from the 

cass tte port 

F78A 





2053 

1 


1 

. • 41 

F78A 





/• 2054 

1 

usage* cal 1 cas in 

• • * . * !;* * * 

F78A 





, 2055 

1 




F78A 





2056 

1 

entry* whc 

> cares 


F78A 


< 



2057 

1 




F78A 





2058 

1 

exit* the 

character, is res a 

/ ' * . • * 

F78A 





2059 

1 




F78A 





2060 

» 

zaps* a 


*• "* # * . % ; • ’ 

F78A 





2061 

1 


■ • ’ ' ■? ' ! 

i ■ ... 

F78A 





2062 



' . 1 ■ 1 

. ’ ■ . ■'*. ; *. * ■ • 

F78A 

DD 

E5 



2063 

CAS IN PUSH 

IX ‘ ' 


F78C 

DD 

21 

3C 

FE 

2064 


LD 

I X • COAT A . 

. .•> , - ’• •• 

F790 

DD 

CB 

36 

5E 

2065 

CIN1 BIT 

CRBRLi ( IX+CFLOS-CDATA) 

: ? » 1 • 

F794 

28 

FA 



2066 


; jr 

Z « CIN1 

! ’• * 1 ' 

F796 





2067 




.V . . : « s ! •*. 

F796 

3A 

70 

FE 


2068 


LD 

A* (CRBR) 


F799 

DD 

CB 

36 

9E 

2069 


RES 

CRBRL » ( I X+CFLGS-CDATA ) 

• • • • ' ? 1 . r 

F79D 

DD 

El 



2070 


POP 

IX 

' .. ';•••.! 1 ' 

• ; ' • ■ \ > * vi; ; . 

F79F 

C9 




2071 


RET 

* ; : V.. ; - 

F7A0 





2072 

1 


. * • • 

* • • 

F7A0 





2073 

1 


» ■' ‘ • 

• * # \ V* * * /® 

F7A0 





2074 

1 

CASOUT - output the character in c to 

the cassette port 

F7A0 





2075 

1 



' r.-. • • 

F7A0 





2076 

1 

usage* call casout 


F7A0 




i 

2077 

1 

. . • 


•••■ ... , »• ’ ■ 

F7A0 


( . 



2078 

1 

entry* th« 

i character is in res c 


F7A0 





2079 

? 



» ■■■ Y • . ■ 

F7A0 





2080 

1 

exit* the 

» character is going out the 

casstte port;.;!*’. . . 

F7A0 


> 



2081 

1 


about everything 

• 1. * W, r > v' V- •: 

F7A0 


v 



2082 

1 

zaps Just 


F7A0 





2083 

* 

* u .. . V • ' 


• * , '» • • . ‘ ?•*’' 

F7A0 





2084 





F7A0 

3A 

72 

FE 


2085 

CASOUT LD 

A.(CFLOS) I get cassette flags \/;v7: v ; 

F7A3 

CB 

4F 



' 2086 


BIT 

CXBRLiA 1 wait for xmit buffer reg empty 


-A 

•J 


. . - • !' 




■.v;m 

'.V. i 


■ » l : 

V 


HR i S h 

Mfl 32 fE 

F7AD 79 
F7AE 32 3E FE 
F7BI 3A 72 FE 
F7B4 E6 01 . 
F7B6 20 12 , 

F7B8 

F7B8 3A 7F FE 
F7BB E6 CF 
F7BD F 6 00 
F7BF 32 7F FE 


?08? 

'*r 


209 
; 2092 

2093 

2094 

2095 

2096 
. 2097 

v . 2098 

2099 

2100 


SET 

B 

LD 

LD 

AND 

JR 

LD 

AND 

OR 

LD 


GXPRUi/Y 


r { V 


lft 

A.C ", /; \ 

< CXBR ) »' A !' 
A, (CFLOS)i 
MCXSRL • 
NZ ? C01 , 

A, (SMASK) 1 
XC3TATE 
CM ID 

(SMASK) t A 


i \odd XtoU PulfFeF ReglsUr with character 


■; ... r>.- 

\'Ui 
> ; 

:\:*k 




I set cassette state to mid 

■ r ’• ■ • 


i i / / y x 


F7C2 

AF 



2101, 



XOR 

A 

5 

F7C3 

32 

3C 

FE 

2 1 02 ‘ 



LD 

( CXBC ) » A 


F7C6 

3E 

FF 


2103 



LD 

A.-l 

? 

F7C3 

D3 

BD 


2104* 



OUT 

( RTC )., A 


F7CA 




2103 






F7CA 

79 



2106' COi 

LD 

A? C 

1 

F7CB 

FB 



2107' 



El 

' * ■' 


F7CC 

C9 



2103' 



RET 

\ ■ ■ 1, ' 


F7CD 




2109' 

1 



. .. . 


F7CD 




2110' 






F7CD 




■ 2111 



ORO 

P10R0-45 


F7D3 




2112 






F7D3 




2113 

l 





F7D3 




’ 2114- 

5 

P0TP1 - Start of page zer< 

F7D3 




_ 2115 : 

S 


the rest of the 

r < 

F7D3 




2116' 

i 





F7D3 




2117 

? 

usages call pOtpl 


F7D3 




21181 

1 





F7D3 




2119* 

» 

entry* hi 

has address of 


F7D3 




21 20'' 

1 





F7D3 




2121 ; 

I 

zaps* nothin® ' 1 1 . 


F7D3 




2122] 1 



» ‘v. 


F7D3 




2123 






F7D3 




2124 ? 

the 

f ol 1 owing six l ines 

0 

F7D3 




2125! 






F7D3 

F3 



2126' 

P0TP1 

DI 

i :! • 1 ' . ' 


F7D4 

F5 



2127 



PUSH 

AF V- . 

? 

F7D5 

3A 

FO 

FE 

2128i 



LD 

A» (AUXMASK) 

1 

F7D3 

CB 

CF 


* 2129 j 



SET 

1 * A 

1 

F7DA 

32 

FO 

FE 

2130! 



LD 

(AUXMASK) • A 

1 

F7DD 

D3 

BC 


2131 * 



OUT 

(KDATA), A 

1 

F7DF* 




2132* 




.r ,• 


F7DF 




2133; 

1 

fal 1 

thru 

into 'the code 

ii 

F7DF 




2 1 34 




. t . 


F7DF 




2135 ‘ 

1 



• ■ •" * -i* * 


F7DF 



i * 

2136- 

1 

The 

rest 

of the code for 1 

F7DF 


f \ 


2137; 1 



, i, 


F7DF 




2133 




. i* * v • 


F7DF 

FI 


*■ 

2139 

RP1TP0 POP 

AF 

1 

F7E0 

FB 



, 2140’ 



El 



F7E1 

CD 

FO 

F7 , 

2141 ! 



CALL 

.IYJUMP 

l 

F7E4 

F3 


• .,« • 

2142; 



DI 

: j . 


F7E5 

F5 



2143* 


• . 

PUSH 

AF 

* 

F7E6 

3A 

FO 

FE 

2144 



LD 

A, (AUXMASK) 

1 

F7E9 

CB 

CF 


* 2145 



SET 

U A 


F7EB 

32 

FO 

FE 1 

< 2146 



LD 

(AUXMASK), A 


F7EE 

18 

OB 


2147 



JR 

ire 


F7F0 




2148 




• / ,i 


F7F0 

FD 

E9 

v- . . 

2149 

I Y JUMP JP 

(iY):>v , - t 


F7F2 



V i’ 

2150 




‘ . 7 • 


F7F2 




. . 2151, 

? 



J )'i V i 


F7F2 

- 



2152! 

1 

interrupt 

1 inkaoe routine 

F7F2 




2153 

1 





F7F2 




2154 






F7F2 

3A 

FO 

FE 

2155 

IRETO 

LD 

A, (AUXMASK) 

1 

F7F5 

CB 

C7 


2156 



SET 

0, A t 


F7F7 

D3 

9C 


. 2157 



OUT 

( KDATA ) , A 


F7F9 

CB 

87 

, \ 

2158 



RES 

0, A 


F7FB 

D3 

BC 


2159 

IRE 

OUT 

(KDATA), A 


F7FD 

FI 

• , 


2160 



POP 

AF 



1 return the byte in a 


cyde a 


executed in page 0 


* I' 


go to the routine in I.Y.< 


>1 


I I 




tl AT • \T« 


l 1/ <C/ VI 


F7FE 

FB 



2161 


El 



F7FF 

C9 



2162 


RET 



F800 




2163 





FOOO 




2164 


ORQ 

P10R0 


F800 




2165 

1 




F800 




2166 

1 




F800 



I 

2167 

T 

Get the Interrupt service routines 

Feoo 




2168 





F800 




2169 


’ 


!; >t 

F800 




2170 


COPY 

RSET. INT/1 


F800 



' ■ . V 

2171 

# 

i 



... ' * 

F800 




2172 

« 

f 

Reset and 

non-maskable ; 

Interrupt handlers # „ ‘ * 

F800 




2173 

• 

» 




F800 




2174 




• . • ‘*4 : 

FSOO 

C3 

06 

FO 

2175 


' JP 

INIT-P1BIAS 

9 Monitor Cold Start * 

F803 

C3 

F2 

F7 

2176 


JP 

I RET1-P1 BI AS 

» Re-entrv for user interrupt routines '• 

F806 




2177 




j • • 

F806 




2178 

| 

initialize the interrupt vectors V 

F806 




2179 



, • ■ • \ • 


F806 

F3 



2180 

INIT DI 


9 actual Monitor Cold Start code starts here 

F807 

31 

CO 

FF 

2181 


LD 

SPf NSTACK 


F80A 

21 

78 

FO 

2182 


LD 

HL» INTTAB-P1BI AS 1 point to initial int vectors ' 

F80D 

11 

FO 

FF 

2183 


LD 

DE, INTVO 

l point to start of the interrupt vectors 

F810 

7A 



2184 


LD 

A , D 

1 select mode two interrupts- , ; V. 

F811 

ED 

47 


2185 


LD 

I » A 1 ! 


F813 

ED 

5E 


2186 


IM 

2 

• i - •' : . ■ • 

F815 

01 

10 

00 

2187 


LD 

BCt 8*2 

1 copy 8 words ' ; . , 

F818 

ED 

BO 


. 2188 


LDIR 

l .. 


F8 1 A 




2189 



: 


F8 1 A 

21 

00 

F8 

2190 


LD 

HLt PAOEl' 

9 init screen cursor address \ ... tt 

FQ1D 

22 

30 

FE 

2191 


LD 

(CURPOS ) t HL 

9 cursor address 

F820 




2192 




• . ' •*' ’ » • • . 

F820 

3E 

80 


2193 


LD 

A.080H 

% T %.** 1- 

F822 

32 

FO 

FE 

2194 


LD 

( AUXNASK) i A 

■ ' ‘ '?■ , . • **’ * v., ’* 

F825 


•• • 


2195 





F825 

AF 



2196 


XOR 

A i 

;; :. t V 

F826 

32 

33 

FE 

2197 


LD 

< ESCFLAO ) * A 

• r y. '• V’/jv * 

F829 

32 

34 

FE 

2198 


LD 

( CVAL) , A 

’ • ‘ . .• V‘ •* r ; i /*.; i;y ' 

F82C 

32 

39 

FE 

2199 


LD 

(KDAV) , A 


F82F 

32 

37 

FE 

2200 


LD 

( VFLOS) , A 

j • ' 

F832 

32 

7E 

FE 

2201 


LD 

(SFLOS) * A 


F835 

32 

72 

FE 

2202 


LD 

(CFLOS) « A 


F838 

32 

3B 

FE 

2203 


LD 

(RTIME).A 

• : j ; ■ *. •. ' ; * ’* 

F83B 




2204 



. 1 l 

• . . • • : 

F83B 

3C 



2205 


INC 

A r - ' 

9 set. constant serial fudge fact or ‘V. 

F83C 

32 

73 

FE 

2206 


LD 

(CSRFF ) » A 

•: . Vr'y * • ' ;.r. S' 

F83F 




220|7 


* 

. ' . : i • : 

, | 1“’ i V i • ' • • V 

i | 

F83F 

3E 

OD 


2208 


LD 

At 13,."' 

1 set serial interval counter to 13 ( 300 baud) 

F84 1 

32 

75 

FE 

2209 


\ LD 

(SIC), A 

' i" • 1 t ; » * ' • 

F844 




2210 




• . / * V *. .* • ’ f 

FS44 

3E 

FO 


,'2211 

ILOOP LD 

A.OFOH 

1 wait for hardware reset to complete ^ 

F846 

D3 

BD 


2212 


OUT 

(RTC),A 


F848 

DB 

BD 


2213 


IN 

A. ( RTC) 


F84A 

E6 

3C 


2214* 


AND 

03CH 

; 3CH allows RTC counter to count 4 

F84C 

28 

F6 


2215 


JR 

Z, ILOOP 


F84E 

AF 



2216 


XOR 

A 


F84F 

D3 

BD 


2217 


OUT . 

(RTC), A 


F851 




2218 





F851 

3E 

AO 


2219 


. . LD 

A.OAOH 

? enable the serial int. land serial ctrl 

F853 

D3 

BE 


2220 


OUT 

(0BEH),A 

• ‘ - • • • ... /' v . . ■’ s'. " . ’• ' V . . • 


- 37 - . 


F855 

F858 

F353 

F85B 

F85C 

F85D 

FS60 

F860 

F360 

F860 

FS60 

FS60 

F861 

F864 

FS64 

F864 

F864 

F864 

F864 

F866 

FS66 

F869 

F869 

F869 

F869 

F869 

F869 

F86A 

F86D 

F8 6F 

F87 1 

F 873 

F875 

F878 

F878 

F878 

F878 

F878 

F878 

F87A 

F87C 

F87E 

F880 

F8S2 

F884 

F886 

Fesa 

F808 

F888 

F888 

F888 

F838 

F888 

F889 

F888 

F883 

F888 

F889 

F88D 

F88D 


32 

7F 

FE 

2221 

LD ( SMASK ) a A ; 

status port stuff 




2222 



21 

45 

FO 

2223 

LD HL, START ? 

return point for reset 

E5 



2224 

PUSH HL, 

• * , • 

F5 



2225 

PUSH AF 


C3 

F2 

F7 

2226 

JP IRET1-P1BIAS 

. • • . 1 ' f • ; . . . •, . 




2227 


. . • .. • / • ■ • 




2228 

3 





• 2229 

5 Invalid interrupt handler 





2230 


1 ‘‘fr 



» 

2231 



F5 


1 

2232 

SPINT PUSH AF 

/ • ' ' /• ' ; 

C3 

F2 

F7 

2233 

, JP . IRET1-P1BIAS 

1 * *. V A 




2234 


• * ’ , • 0 \ • , 

i •' , 1 4 ' * J _ \ ' *, 



* . 

2235 

1 

• * . ‘ ‘ a * 




2236 

J Non-maskable interrupt handler 



r 

2237 

1 • ; »; 

“ • : ** /■ ■ t 




2238 

; • 

. V .* * . 




2239 

ORO P10R0+00066H 

1 . • 




2240 


..i 

C3 

06 

FO 

2241 

JP INIT-P1 BI AS 





2242 






2243 

1 • ••. r 

* ' • • ' ' [ v 




2244 

1 Invalid interrupt handler 

for edse detector . ‘ . 




2245 

1 • ..... , ’* . ;i 

• t • • • - s " * ; ' 




2246 


• • * . ’• ■* * # ‘ # ! • ^ 

F5 



2247 

SPEINT PUSH AF \’* 

4 1 - ' 1* 

. • • J ' t . 

3A 

7F 

FE 

2248 

LD At ( SMASK) 


CB 

BF 


2249 

RES 7 1 A 

* . 

D3 

BE 


2250 

OUT (SERPORT)»A 


CB 

FF 


2251 

. SET • 7t A r 

•• .* " 

D3 

BE 


2252 

OUT ( SERPORT ) 1 A 

I ' • 

C3 

F2 

F7 •> 

2253 

JP IRET1-P1BIAS 

' '■ • . * 




2254 

•,.» ' 

' , 1 '•/ -f 




2255 

1 1 '• ‘ " '* 

' » '• • . • 




2256 

1 INTTAB - The’ 1 initial interrupt vectors • *;/n »\ ' 




2257 

1 , ’m;.-/.;-,.-. 





2253 

• *• v .* • 

' ■■ i > ' ■ I 

60 

F0 


•’ 2239 

INTTAB DW . SPINT-P1 BI AS 1 

interrupt 0 vector ' 

60 

F2 


22^0 

. , DW KTIMER-P1 BI AS 1 

RTC interrupt (keyboard repeat timer) 

36 

FI 


2261 

*• . DW SEINT-P1B I AS 1 

serial edse detector interrupt 

60 

FO 


2262 

DW SPINT-P1 B I AS 

: ; : ;.* v ; 

60 

FO 


2263 

DW SPINT-P1 BIAS 

. ' ' . \ r ' 

60 

FO 


2264 

DW SPINT— PI BIAS . 

' 

Cl 

FI 


: 2265 

DW KBINT-P1BIAS 1 

keyboard u key pressed” interrupt • 

60 

FO 


2266 

DW SPINT-P1BI AS 5 

interrupt 7. vector ! e ^ . 




2267 

1 ’ . 





: 2268 

, COPY SER. INT/1 





2269 

1 




* . ; : 

2270 

1 serial interrurt handlers 


t • ' 



•//• 2271 

1 

. • •• • •" 


* 1 .* 


2272 






2273 

1 ‘ ‘ 



t ( 


2274 

1 STIMER - serial rtc interrupt handler 




2275 

? 

1 




. 2276 

* * ' . »/ 


F5 



2277 

STIMER PUSH AF 


DD 

22 

BA FE 

2278 

LD ( ISAV1MX 





2279 



DD 

21 

73 FE 

2280 

LD IXtSDATA 



38 


F891 2281 


FS9 1 

3A 

73 

FE 


2282 


LD 

A i < CSRFF ) 


F894 

32 

74 

FE 


2283 


LD 

( SRFF ) * A 


F897 





2284 




• 

F897 

DD 

CB 

OB 

46 

22$5 


BIT 

XSRLi ( I X+SFLGS-SDATA ) ? check if shift register loaded 

F89B 

28 

48 



2286 


JR 

Z,ST10 5 Jump if so 


F89D 





2287 





F89D 





2238 

» get 

here 

when shift register loaded ' 


F89D 





2239 



1 

‘ 

F89D 

DD 

35 

03 


2290 


DEC 

( IX+X IC-SDATA ) ; decerement xmit interval counter 


F8A0 

20 

5D 



2291 


JR 

NZ.ST20 ; Jump if not time to check 


FBA2 





2292 





F8A2 





2293 

J get 

here 

when time for next bit 


F8A2 





2294 





F8A2 

DD 

35 

01 


2295 

STOO 

DEC 

( I X+SRFF-SDAT A ) 


F8A5 

20 

FB 



2296 


JR 

NZt STOO ; . 


F8A7 

DD 

34 

01 


2297 


INC 

( I X+SRFF-SDAT A ) 


F8AA 





2298 





F8AA 

DD 

35 

OA 


2299 


DEC 

( IX+XBC-SDATA) 1 decrement xmit bit count 


F8AD 

F2 

BC 

FO 


2300 


JP 

P? ST01-P1BI AS 


F8B0 





2301 



• 

. ' 

FSBO 





2302 

¥ get 

here 

when done transmiting 

, f 

F8B0 





2303 





FSBO 

DD 

CB 

OB 

4E 

2304 


BIT 

XBRL, ( I X+SFLGS-SDATA) f check if anything in xmit 

buffer 

F8B4 

20 

35 



2305 


JR 

NZiSTll 1 go start transmition if XBR not empty 

F8B6 





2306 





F8B6 

DD 

CB 

OB 

86 

2307 


RES 

XSRL, ( I X+SFLGS-SDATA) ? else say shift register empty 

F8BA 

18 

43 



2308 


JR 

ST20 5 and go check for input 


F8BC 





2309 



. • 

■ •/ 

F8BC 

20 

OA 



2310 

ST01 

JR 

NZ»ST02 5 Jump if more data bits 


F8BE 

DD 

CB 

OC 

A6 

2311 


RES 

4, (IX+SMASK-SDATA) 1 else send two stop bits 


F8C2 

3A 

75 

FE 


2312 


LD 

A, (SIC) 


F8C5 

87 




2313 


ADD 

A, A *Y . • \ 


F8C6 

18 

13 



2314 


JR 

sto5 . * 


F8C8 





2315 





F8C8 

DD 

CB 

09 

OE 

2316 

ST02 

RRC 

( I X+XSR-SDATA ) ¥ get next bit 


F8CC 

30 

06 



2317 


JR 

NC» ST03 ¥ Jump if bit is low 


F8CE 

DD 

CB 

OC 

-0 

<£ 

2318 


RES 

4, (IX+SMASK-SDATA) ¥ else set serial line, hi 


F8D2 

18 

04 



2319 


JR 

ST04 i 1 * 


F8D4 





2320 





FSD4 

DD 

CB 

OC 

E6 

2321 

ST03 

SET 

4. (IX+SMASK-SDATA) ¥ set serial line low 


F8D8 





2322 



i /• 


F8D8 

3A 

75 

FE 


2323 

ST04 

LD 

A? ( SIC ) 1 get' serial interval counter 


F8DB 

32 

76 

FE 


* 2324 

ST05 

LD 

(XIC)vA ¥ set transmit counter 


F8DE 

3A 

7F 

FE 


2325 


LD 

A.(SMASK) ¥ get value to out to port 


F8E1 

D3 

BE 



2326 


OUT 

< SERPORT ) « A ¥ out it 


F8E3 

18 

1A 



2327 


JR 

ST20 - y;.',-.: V .• •; . 

* • •*; 

F8E5 


, , 



2328 

¥ 


*..•,?** . . • 


F8E5 





2329 

1 get 

here 

to check for char in xmit buffer reg \ * 


F8E5 




. i 

2330 





F0E3 

DD 

CB 

OB 

LI 

2331 

ST10 

BIT 

XBRL, (IX+SFLOS-SDATA) 1 anything in xmit buffer? 


F8E9 

28 

14 



?332 


JR 

Z,ST20 ; Jump if not • 







2333 



* ' * * i ' J . ... 

t 1 . • ’ ■ * ■ ■ 


FbEB 

DD 

e§ 

08 

eg ■ 

2 33^ 

STil 

RES 

XBRL : , < I X+SFLGS-SDATA) J sav xmit buffer empty 


F8EF 

DD 

CB 

OB 

C6 

2335 


SET 

XSRL. <1 X+SFLGS-SDATA) 5 say shift register full 


F8F3 





2336 





F8F3 

3A 

7B 

FE 


2337 


LD 

A. (XBR) 1 transfer xmit buffer to xmit shift 

reel 3 1 

F8F6 

32 

7C 

FE 

1 

2338 


LD , 

(XSR).A 


F8F9 





2339 



i 


F8F9 

DD 

36 

OA 

09 

2340 


LD 

( IX + XBC-SDATA) ,9 5 set remit bit count',,. 



5 

H 


- 39 - 


JR 


ST 03 


set interval counter and send start bit 


F8FD IS D5 2341 

FSFF 2342 

FSFF 2343 

FSFF 2344 

FSFF DD CB OB 66 2345 

F903 28 25 2346 

F905 2347 

F905 234S 

F905 2349 

F905 DD 35 04 2350 

F908 .20 5C 2351 

F90A • ; 2352 

F90A 2353 

F90A •/ 2354 

F90A DB BE 2355 

F90C E6 SO 1 . 2356 

F90E 23 14 2357 

F910 2358 

F910 ; . 2359 

F910 J 2360 

• F910 DD CB OB A6 2361 

F91 4 DD CB OB D6 2362 

F918 2363 

F918 3 A 75 FE 2364 

F91B 32 77 FE 2365 

F91E 2366 

F91E DD 36 07 09 ; 2367 

F922 18 42 2368 

F924 \ 2369 

F924 DD CB OB A6 2370 

F928 18 33 2371 

F92A - 2372 

F92A v, i 2373 

F92A 2374 

F92A DD CB OB 56 2375 

F92E 28 36 . 2376 

F930 - 2377 

F930 y . * 2378 

F930 • . ' 2379 

F930 DD 35 04 2380 

' F933 20 31 * 2391 

• F935 >: 2382 

F935 .. 2383 

F935 * * ’ 2334 

F935 DD 35 01 2385 

F938 20 FB 2336 

F93A * ‘ 2387 

F93A DD 35 07 ’ .V 2383 

F93D 28 10 ,* • ; ! 2339 

F93F v . s 2390 

F93F DB BE i ,,, * .. • \ 2391 

. i F941 07 2392 

F942 3F ' - 1 * 2393 

F943 DD CB 06 IE 2394 

F947 2395 

F947 3A 75 FE 2396 

F94A 32 77 FE 2397 

F94D 18 17 2398 

F94F 2399 

F94F 1 2400 


l pet here to check for input stuff 

ST20 BIT RLSBf ( I X+SFLGS-SDATA ) ? looking for start bit? 

JR Z»ST30 5 Jump if not 

1 get here if looking for start bit ' ( 

DEC ( IX+RIC— SDATA) 

JR NZ * ST 40 ? Jump if not time to look for start bit 

I : 

I get here if time to sample start bit 


IN A* ( SERPORT ) 

AND 080H 
JR Z.ST22 • 


1 sample serial input data 
5 leave inverted data bit, 
I Jump if no start bit 


1 get here when have val id start bit 


ST22 


1 


RES RLSBt ( IX+SFLGS-SDATA) t looking for start bit ® false 
SET RSRLf (IX+SFLGS-SDATA) 5 re c. shift res. loading® true 

LD Ai(SIC) * » get serial interval count 

LD (RIC)tA ? se/t receive interval count /* 

LD ( I X+RBC-SDATA ) ? 9 I set receive bit count '* / 

J R ST40 ‘V, ' /; 

RES RLSBt ( IX+SFLGS-SDATA) I wasn't a valid start bit v ' v- 

JR ST33 . i , „■ ; , \\ •• : ;V;V 


I get here if not looking for start bit 
ST30 


BIT 

JR 


RSRL. (IX-fSFLOS-SDATA) 1 rec. shift register loading? 
ZtST40 1 Jump if not • \ *V*' 


I get here if loading receive shift register ’v ' r • 

. • : ’ • • * ’* i* ■ 

DEC ( IX+RIC-SDATA ) I decrement receive interval counter 

JR NZ.ST40 ; 


t get 
ST31 


here if time to sample data bit 


. ' .T. 


DEC 

JR 

DEC 

JR 

IN 

RLCA 

CCF 

RR 

LD 

LD 

JR 


< IX+SRFF-SDATA) . ‘ .f, , * 

NZ.ST31 

•S.:* . * • • • f • ** * 

( IX+RBC-SDATA) 1 decrement receive bit count 
ZtST32 1 Jump if received all' bits 


A, (SERPORT) 

( I X+RSR-SDATA) 

A, (SIC) 

(RIC).A 
ST40 


1 sample data bit '•* : : . . J* 

I rotate bit to carry •‘ ; ’ 

I the data bit is invertedt so complement carhv 
f rotate bit into shiftresister 


get serial if 
. . to rece i> 


5 ge^ serial interval counter 

Ive interval counter 


1 get here when received all bits 


— 40 — 


F94F 

F94F 3A 79 FE 
F952 32 78 FE 
F955 

F955 DD CB OB DE 
F959 DD CB OB 96 
F95D 

F95D DD CB OC FE 
F961 3 A 7F FE 
F964 D3 BE 
F966 

F966 3A 7E FE 
F969 E6 15 
F96B 20 OE 
F96D 

F96D DD 2A BC FE 
F971 DD 22 F2 FF 
F975 * 

F975 3A 3B FE 
F978 B7 
F979 28 02 
F97B 

F97B 3E FD 

F97D D3 BD 

F97F DD 2A BA FE 

F983 C3 F2 F7 

F9S6 l ' 

F986 

F986 

F986 

F986 

F986 F5 

F987 

F987 3 A 7F FE 
! F98A CB BF 
F98C 32 7F FE 
F98F D3 BE 
F991 

F991 3A 75 FE 
F994 CB 3F 
F996 32 77 FE 
F999 

F999 3A 7E FE 
-v F99C E6 15 
F99E 20 16 

•• 

m n pa p 

. ~9fl3 2 ft F2 FF 

• F9A6 22 B0 FF 

■’ F9A9 2i B8 Fd : 

»*. F9AC 22 F2 FF 

< F9AF 2A BA FE 

F9B2 

F9B2 3E FD 
F9B4 D3 BD 
F9B6 

F9B6 3A 7E FE 
F9B9 CB E7 *. 
F9BB 32 7E FE 
F9BE C3 F2 F7 


2401 

2402 

ST32 

LD 

2403 


LD 

2404 



2405 


SET 

2406 

•— 

RES 

2407 

2408 

ST33 

SET 

24Q9 


LD 

2410 


OUT 

2411 



2412 

ST40 

LD • 

2413 


AND 

24 1,4 

. 

JR 

2415 



2416 


LD 

2417 


LD 

2418 



2419 


LD 

2420 


OR 

2421 


JR 

2422 

2423 

ST50 

LD 

2424 

ST60 

OUT 

2425 


LD 

2426 


JP 

2427 

1 


2428 

1 


2429 

1 SEINT - 

2430 

1 


2431 



2432 

SEINT 

PUSH 

2433 


» 

2434 


LD 

2435 


RES 

2436 


LD 

2437 


OUT 

2438 



2439 

• • \ 

LD 

2440 


SRL 

2441 


LD 

2442 



2443 


LD 

2444 


AND 

2445 


JR - 

2446 

i • 


mi 


LD 

244Q 


Ld 

244 9 


LD 

2450 


LD 

2451 


LD 

2452 


LD 

2453 



2454 


LD 

2455 


OUT 

2456 



2457 

SE1 

LD 

2458 


SET 

2459 

. 

LD . 

2460 


JP 


tAr. 


l 1/2/ ta 


’• i • I • 

A » ( RSR ) ; get received data... 

(RBR),A ? to receive buffer register / 

RBRL* ( I X+SFLOS-SDATA) 5 set receive buffer. register loaded 
RSRL t ( I X +SFLGS-SDAT A ) 5 RSRL = false , y ; 


7* ( IX+SMASK-SDATA ) \ reenable the serial interrupt 

A. (SMASK) 

( SERPORT ) , A 7: . ' . 

/ • ' . 

A» (SFLGS) ? check if we should reenable the clock 

MXSRL+MRLSB+MRSRL * • •• 

NZ»ST50 1 Jump if not done with all serial .stuff 


IXt(OIVl) l restore old level 1 int vector 

( I NT VI ) » IX '* 


A* (RTIME) 1 check if we should restart the clock 

A l for the keyboard repeat function 

Z»ST60 1 if counter is zero then don^t restart 


A»-3 restart the real time clock 

(RTC)tA l stop real time clock • 

IXt(ISAVl) 'v 

ireti-pibias /. \ 


rocess interrupt 


afV : ‘- * 

•>. ' 

At (SMASK) I 

7, A • 

(SMASK) t A 
(SERPORT) • A 


for serial edge detector k 

• / ■ *.’ |.” • 

save a and flaes . 

... i- • 

disable edse detector interrupt 



» • • . 



A. (SIC) 
A 

(RIC) * A 


l set serial interval counter 
! divide bv two for half bit time 
1 set receive interval counter 






i*. ‘f 


i* 




At ( SFLOS ) . 

MXSRL+MRLSB+MRSRL ? check for serial activi tv . ; ■ O.- \ 
NZtSEl 1 Jump if any going onv.”*. 

u§AvihHu ’ '•! '■ 

HL.(INTVl) ? else save current level 1 int vector 

(OIVl)iHL ••••’■ ' • • 

HL» STIMER-P1BI AS 1 ...set vector to point to serial timer 

(iNTVi)tHL 

HL, (ISAV1) , . 

A* -3 ' f set clock value / .. v: , ‘V. 

(RTC),A 

A. (SFLOS) 

RLSB » A 
(SFLOS), A 
IRETI-PIBIAS 


-41 


( 


F9C1 




2461 

7 






F9C 1 




2462 


COPY 

KBD. INT/1 




F9C1 




2463 

* 






F9C1 




2464 

» keyboard 

interrupt service 

1 routines \ 


F9C1 




2465 

5 


j . . 




F9C1 




2466 





. i ■ ; ... ■ • 


F9C l 




2467 

7 define repeat rate for 

new key down • ■ ' • 


F9C1 




2468 





" , ’• 


F9C1 




2469 

KRD1 

EQU 

187 .V 

7 

initial repeat time 187 # 4 » 749 msec 

/v ; 

F9C1 




2470 

KRD2 

EQU 

13 

5 

secondary repeat value 13 #' 4 * 50 msec 


F9C1 




. > 2471 





, 


F9C1 




. 2472 

1 define the keyboard hardware 


F9C1 




: 2473 



• 




F9C1 




2474 

NPBIT 

EQU 

2 5 

7 

if this bit is hish then key is on numeric pad 

F9C1 




2475 



• ... • j 



, ... ’• 

F9C1 




2476 

KBSTAT EQU 

OBEH 




F9C1 




2477 



• . ■;* 




F9C1 




2478 

SKDOWN EQU 

o. ‘ 

7 

low when shift key down 


F9C1 




2479 

CKDOWN EQU 

t •.V*- • 

5 

low when control key down 


F9C1 




2480 

IJKDOWN EQU 

2 vW v--. . 

7 

low when upper case key down • 

■ L ' ( r . • 

.V • 

F9C1 




2481 

SWEDSH EQU 

3 : V 

i 

low if Swedish style keyboard 


F9C1 




2482 

i 




. ■ ■ • • 

» ■.• ' _ . 

F9C1 




. 2483 

5 






F9C1 




2484 

7 KB I NT ■ - the keyboard interrupt handler. Process decodins u 

> -fu'; ‘ •* - 

F9C1 




2485 

7 

of the keyboard when a 

. key is hit ...V**’ 

i."' 

F9CI 




► 2486 

7 




* • 

• »* 

F9C1 




2437 

7 

on entry* * ; 


... •' * : .j # *.'*.• ' • 

. v K * 

F9C1 




2483 

» 

someone poked a key 



F9C1 




2439 

7 


• • . Y V* 




F9C1 




t 2490 

1 

on exit! 4 ' • 


' 4 ' ■ *• *■ '*• '• 

' ;.yy 

F9C1 




2491 

1 

the 

decoded value 

of 

the key is stored in kbval 

■ 

F9C1 




2492 

l 




(, ' • , : • '..rv.; v ; 

. v?;r k ' ' 

F9C1 




. 2493 

1 

trashes nothins 



« • ' 

F9C1 




2494 

7 


. . ' t 




F9C1 




2495 





■ y . 

■ V 

F9C1 

F5 



2496 

KBINT 

PUSH 

af : 

1 

save acc and f lass ' /; . 


F9C2 

22, 

► BA 

FE 

2497 


LD 

( IS AVI ) « HL 


c. ; » ‘‘ ’/ 4 • •• : 

1 »*• l 

F9C5 




2498 



• 


• . ; *h* y V . . 


F9C5 

DB 

BC 

4 

2499 


IN 

A, (KDATA) 


. *• *: ’■ - r L‘ X • • . . •• 

J 

F9C7 

E6 

7F 


2500 


AND 

07FH 



• i . 

F9C9 

32 

3A 

FE 

2501 


LD 

. (KADR) » A 

7 

save a copy of the address ^ 


F9CC 




2502 





• 1 '• • ■ ' >?V; t .*•* 

• 

F9CC 

CB 

57 


2503 

, * 

BIT 

NPBITi A 

7 

check If key is on the numeric pad 


F9CE 

28 

10 


2504 


JR 

2, NOTNP 


• r •• 

’\< 

F9D0 



. 1 

2505 



* 



t ; 

F9D0 

OF 


4 •' 

2506 


RRCA 

" i 1 • 

7 

rotate column to correct position 


F9D 1 

OF 


| 

2507 


RRCA 

.. •' )•' ^ 



■ ■* **.’ ‘ >\ ’ ' 

F9D2 

OF 



2508 


RRCA 

' ‘ •V4 ; i y • i 


, ' ^ 


F9D3 

E6 

OF 


2509 

/*’ ; 

AND 

OOFH 1 

7 

keep it lesal .V.' V, . 


F9D5 

21 

89 

F2 

2510 


LD 

HL » NPMAP-P 1 B I AS 

I point to numeric pad map 


F9D8 

85 

' ■; •’ 

* . • - \ 

2511 


ADD 

AtL 


• •. “y ‘ • ‘ . yr'-’V* . j ' ‘ 


F9D9 

6F 



2512 


LD , 

L» A 




F9DA 

30 

01 


2513 


JR 

NC* KBIO 




F9DC 

24 


9 \ 

2514 


INC 

■ H 


• ■ 1 . 


F9DD 

7E 



2515 

KBIO 

LD 

A. (HL) 

5 

set the character 


F9DE 

13 

5B 


2516 


JR 

KB 1 4 


. " 'v *‘ v • • : 


F9E0 




2517 



. • ; j » 




F9E0 

E6 

03 


2518 

NOTNP 

AND 

003H 

7 

isolate the row bits « 


F9E2 

67 



2519 


LD 

H.A 


• • • * 


F9E3 

3A 

3A 

FE 

2520 


LD 

A, (KADR) 

7 

yet new copy of key address 



EXP.S 


11 / 2/81 


F9E6 

OF 


2521 


RRCA 


5 

shift column bits down one 

F?E7 

E6 

3C 

2522 


AND 

03CH 

» 

leave the column bits 

F9E9 

B4 


2523 


OR . 

H 

5 

or in the row bits 

F9EA 

67 

' 

2524 


LD 

H» A 

» 

save i n H 

F9EB 

DB 

BE 

2525 


IN 

A, (KBSTAT) 

1 

check for Swedish keyboard 

F9ED 

CB 

5F 

2526 


BIT 

SWEDSH, A 



F9EF 

7C 


2527 


LD 

A* H 

t 

set key address to A 

F9F0 

21 

99 F2 

2523 


LD 

HL » UKMAP-P 1 B I AS 

; index into the US key table 

F9F3 

20 

03 

2529 


JR 

NZ * KB 1 00 

5 

if bit is hi then it's a US keyboard 

F9F5 

21 

19 F3 

..>2530 


LD 

HL » SKMAP-P 1 B I AS 

5 else index into SW key table 

F9F8 

87 


* 2531 

KBIOO 

ADD 

A. A 

1 

multiply by 2 ■ 

F9F9 

85 

• * * » . 

'OjJ 2532 


ADD 

A.L | •*' ■ 



F9FA 

6F 


2533 


LD 

L. A 



F9FB 

30 

01 

% 2534 


JR 

NCvKBI 1 



F9FD 

24 


V 2535 


INC 

H 



F9FE 



2536 





' ■ V 

F9FE 

DB 

BE 

2537 

KBI1 

IN 

A. (KBSTAT) 

1 

check for shift key down 

FAOO 

CB 

47 

2538 


BIT 

SKDOWNi A 


..y.ir 

FA02 

20 

03 

. 2539 


JR 

NZ.KBI2 


( • : ' ■&. 

FA04 



2540 



•I '/.*•. • 


. . • V •• / 

FA04 

23 


2541 

i 

INC 

HL ' 

I 

point to next byte in table -V 

FA05 

18 

ID 

2542 


JR 

KBI3 


: ; % • • 

FA07 



2543 

f 


V • 

1.1 J , 


i ' ...V' ■ • 'O,* , 

FA07 



2544 



1 • 1 


• * t 

FA07 

CB 

57 

2545 

KBI2 

BIT 

UKDOWN.A 

? 

check for upper case key down 

FA09 

20 

23 

2546 


JR 

NZ.KBI32 . 

V 

J ump if not 

FAOB 



2547 






FAOB 

CB 

5F;V . ‘ 

, * 2548 


BIT 

SWEDSH. A 

1 

check for Swedish keyboard 

FAOD 

7E 

• *• 

2549 


LD 

A. (HL) 



FAOE 

20 

14 

‘ 2550 


JR 

NZ i KBI3 

1 

J ump i f no t ( • 1 . 

FAIO 



2551 






FA 10 

FE 

7C 

2552 


CP 

' .+ \* ’•* 

1 

check for special Swedish characters 

FA12 

23 

19 

2553 


JR 

Z.KBI31 



FA14 

FE 

7D 

2554 


CP 

n' 


• • • . • . v *1 

FA16 

28 

15 

2555 


JR 

Z.KBI31 ' ' 


• ' ' • * \ * • / . 

FA18 

FE 

7B 

2556 

• r • i 

CP 

' C' ; 


* * ' • '* .< .. v 

FA1 A 

28 

ll * : 

2557 


JR 

Z.KBI31 


. . .. • . ' * . - .. *•-.’/ 

FA1C 

FE 

60 

2558 


CP 

/ \ / 


,v '• i • * . 

FA1E 

28 

OD 

2559 


JR 

Z.KBI31 


’ * S/ j ; ;.v • 

FA20 

FE 

7E 

2560 


CP 



, • • • »• i. 1 •, ' “ r ’ 

FA22 

28 

09 

2561 


JR 

Z * KB 131 



FA24 



2562 



H " • . v 


. 1 

FA24 

7E 


' 2563 

KBI3 

LD 

A, < HL ) . 

I 

else check for , normal upper- case 'ab 1 e 

FA25 

FE 

61 

2564 


CP 

• y 3L y "‘] : ‘ 


* ' '• * \ 

FA27 

38 

05 

2565 


JR 

C* KB 1 32 


; ' • .• • ' J". 

FA29 

FE 

7B • * 

2566 


CP 

'z' + l . 



FA2B 

30 

01 

. , 2567 


JR 

NCt KBI32 i 


• • " ' 1 |K.j ; * : : '. r : 

FA2D 



2568 



' *• • • 



FA2D 

23 

. I 

2569 

KB 131 

INC 

HL ' i - . 



FA2E 



2570 






FA2E 

DB 

BE 

2571 

KB 132 

IN 

A, (KBSTAT) 



FA30 

CB 

4F . 

2572 


BIT 

CKDOWNi A 


check for control key down ' . 

FA32 

7E 


2573 


LD 

A. (HL) 


, * ‘ • •! ■■ » 

FA33 

20 

06 

2574 


JR 

NZ.KBI4 

! 

J ump i f not 

FA35 

FE 

20 

2575 


CP 

/ / 



FA37 

28 

02 

2576 


JR 

Z.KBI4 

? 

space can't be controled either , 

FA39 



2577 



• • f. • 


• . 

FA39 

E6 

IF 

2578 


AND 

01FH 



FA3B 



2579 



,v 



FA3B 

32 

38 FE 

2580 

KBI4 

LD 

(KBVAL).A 

1 

save the character \ , 


-' 13 - 






2581 





FA3E 

3E 

FF 


2582 

’ 

LD 

A.-l 


FA40 

32 

39 

FE 

2533 


LD 

(KOAV) « A 

; set the data available flas 

FA43 




2584 

* ■',* 


, 1 


FA43 

3E 

BB 


2585 

i 

LD 

A.KRD1 


FA45 

32 

3B 

FE 

• w 2586 


LD 

( RTIME) » A 

1 set the initial time delay , «■ 

FA48 




2587 





F A43 

3A 

7E 

FB 

2588 


LD 

A, ( SFLGS) 

1 start the clock if there's not any >''V 

FA4B 

E6 

15 


25e9 


AND 

MXSRL+MRLSB+MRSRL 

FA4D 

20 

OB 


• , 2590 


JR 

NZ.KBI5 

; Jump if any serial stuff . 

FA4F 

3A 

72 

FE 

2591 


LD 

Af (CFLGS) 

• • :, r 

FA52 

£6 

40 


2592 

- tt 

AND 

MCRIP 

.V* r ; ■ • %• 

‘ f ,*• . .4 • 

FA54 

20 

04 


2593 


JR 

NZ.KBI5 


FA56 

3E 

80 


•«/. 2594 


LD f 

A. 128 

? start the real time clock for maximum time .' .j 

FA58 

D3 

BD 


V 2595 


OUT 

(RTC), A 


FA5A 

2A 

BA 

FE 

& 2596 

KB 15 

LD 

HL. ( ISAV1 ) 

‘ V/ ^ i’;, ‘ * ■ - • (•- /. 

FA5D 

C3 

F2 

F7 

2597 


JP 

IRET1-P1BI AS 

‘ ;..f . ;, v . •• • r . 

FA60 




2598 

l 



* • ' T* 1 ^ 

FA60 




2599 

1 



. • * # / * r . \ „ ’ 

FA60 




2600 

1 KTIMER - 

process timer interrupt for keyboard repeat funct 

FA60 




2601 

1 




FA60 




. 2602 



i .* . 

; ¥ *. , . ' 
i> . • 

FA60 

F5 



2603 

KTIMER PUSH 

AF • • 

■ \ • .. » 

FA61 

3E 

80 


2604 


LD 

A. 128 

•«-. * Vi . • ‘ 

FA63 

D3 

BD 


2605 


OUT 

( RTC ) • A 

? restart the. timer . V^. /V 

FA65 

3A 

3B 

FE 

2606 


LD 

A. (RTIME) 

I set timer counter ‘vi- • ‘ 

FA68 

3D 



/ 2607 

. 

DEC 

A * 

l decrement it ■.’/■*/ • 

FA69 

20 

17 

1 *• 1 ; 

. 2608 


JR 

NZ» KTMl 

» Jump if not done vet j v . ' 

FA6B 




2609 

• >• 




FA6B 

3A 

3A 

FE * 

2610 


LD 

A, (KADR) 

I timer timed out... . 'v ‘ 

FA6E 

D3 

BC 


2611 


OUT 

(KDATA) • A 

; check if last key still down 

FA70 

DB 

BC 


2612 


IN 

A. (KDATA) 

! ; *V" . • 

FA72 

E6 

80 

\ 

2613 


AND 

080H . 

1 mask out hi bit ' \ .• : 

FA74 

20 

05 


2614 


JR 

NZ * KTMO 

1 Jump if key still down > ' .* 

FA76 




2615 





FA76 

AF 



2616 


XOR 

A ’ 


FA77 

D3 

BD 


2617 


OUT 

( RTC) « A 

1 stop the timer if key not down 

FA79 

18 

07 


2618 


JR 

KTMl 

;a,‘ :• 

FA7B 




2619 



• • 

. . r‘ '»* t ‘ ‘ ,.n * . v • 

FA7B 

3E 

FF 


2620 

KTMO 

LD 

a,ti ;• 

’ 1 ■ * , -i • * i * i • - 

FA7D 

32 

39 

FE 

2621 

i , * 

LD 

(KDAV) t A 

1 set/ keyboard data aval 1 abl e 'f 1 asi ' 1 . 1 • 

FA80 

3E 

OD 

• , 

2622 


LD * 

At KRD2 

1 ser current secondary delay value 

FA82 




2623 




•\f.. 

FA82 

32 

3B 

FE 

2624 

KTM1 • 

LD 

(RTIME) , A 

1 stop the counter if key no lonver down '-v 

FA85 

C3 

F2 

F7 k 

2625 


JP 

IRET1-P1BIA3 


FA83 

FF 

[ 


.2626 


DB 

OFFH 

‘ ’T-. ,i, • . 1 .• • y.j, 

FA39 



• 

2627 

1 V 


. '• '* . 

• . : • • r , * # * y- .'•••" ’ ’ ■ 

FA89 


. • 


2628 

• 



: . » . V.*. . . ‘ , , •.» >. 


FA89 ','.'2629 1 define the numeric pad kev values ’ ' •» " -i ' 

FA89 ' . 2630 I " . ' I 

FA89 . . '2631 ■• '..•• • : V X "' ’ V 

FA89 ’ 2632 NPMAP EQU •* . ^ I define the numeric pad keys ; ,S..; 

FA89 "‘ 263? ' .' 


FA89 

30 

31 32 

33 

2634 

DB 

'O'.'l', '2'. '3' 

I 

col s 

0-3 

FA8D 

34 

35 36 

37 

2635 

DB 

'4', '5', '6', '7' 

; 

col 5 

4-7 

FA91 

38 

39 2E 

3F 

2636 

DB 

'8'. '9'. 

1 

col S 

8-11 

FA95 

2B 

2D 2A 

2F 

. 2637 

DB 


5 

col s 

12-15 


FA99 

' 2638 \ • 


• > i’. 

FA99 

FA99 

2639 1 KMAP - keyboard mapping tables 

2640 1 

^ -V; * • ■ / 

- 


- 44 - 


tAr. £• 


i 1/ -C/tU 


FA99 




2641 

5 each entrv 

• is associated with one 

kev 

< unshi f ted/shi f ted ) 

FA99 




2642 

5 





FA99 




2643 

5 the table 

is mapped in the following i 

nanner* 

r 

FA99 




2644 

1 





FA99 




2645 

» the ascii value of a kev is derived 

by adding 2 times the 

FA99 




2646 

1 row/colum address read from the 

keyboard to 

the base 

FA99 




2647 

» . address 

of kmap. if an entry in 

the 

table is 

encoded 

FA99 




2648 

1 with the 

r hi bit set then that entry 

must receive special 

FA99 



‘ ; 

2649 

1 attention when shifting or controlling the key .7 . 

FA99 



1 

- 2650 






FA99 



• . .'>•’! 

* 2651 

1 define the 

’ fill value for the map 



1 , V ^ ‘ • • 

FA99 



i. 

2652 

? used to mark invalid keys 



' 'i ' 

FA99 



• 1* 

2653 





'*■ ^ ‘ ‘ . : .:V 

FA99 



‘ 4 -. 

2654 

FILL EQU 

OFFH 



% *i * 

FA99 




2655 





• \ ' • . • 

FA99 



' ' • i 

2656 

1 define the 

special key flag 



■ : 

FA99 




2657 





■1 *' * t 

FA99 




• 2658 

SPECIAL EQU 

080H / , 



• . • • *1 ■ •• 

FA99 




2659 


, V 




FA99 

1 



2660 

1 define the 

program keys 




FA99 




2661 





■ ■ ‘ . • 

FA99 



% 

2662 

P001 EQU 

OOOH+SPECIAL 



». , . . ' , • 

FA99 




2663 

P023 EQU 

002H+SPECI AL 



■ : ■ V V 

FA99 




2664 





V ■ t ; ; 

FA99 




2665 

1 define special keys on main keyboard 


7 . ■ • 

FA99 




2666 


* ' • > /• 



• . . • . • • • * , , 

FA99 




2667 

KBTAB EQU 

009H 




FA99 




2668 

KBESC EQU 

01 BH • 



V\ : ‘ : 

FA99 




2669 

RETURN EQU 

OODH 




FA99 




* 2670 

SPACE EQU. 

020H 



: 7V-'v ' . • • . i 

FA99 

* ' 



. 2671 

CUNDL EQU 

05FH,. 


i i 

t 

• : • t. ••»•:; “ 

FA99 




2672 

1 

■’liVfl '• 



: 1 . .... 

FA99 




2673 

1 , 




i 1 | • \ ' 

FA99 



1 

2674 

; this is the map of the USA expander keyboard 

1 . . A ; . ' • v ‘ ; \ ~ 

FA99 




2675 

1 





FA99 




2676 






FA99 




2677 

1 map the keys on the main keyboard 



. • • .j. 

•; k.;.‘ . . 

FA99 




2678 






FA99 




2679 

UKMAP EQU 

$ 



VV.' .-"I. fV- 

FA99 




2680 


. ' : .■*- 




FA99 

IB 

IB 


. 2681 

DB 

KBESC, KBESC f col 0 



■ ' s. ’• 

... .i • 

FA9B 

09 

09 

•r . . 

2632 

. \ DB . s/. 

KBTAB, KBTAB 



' •* V' f , ''' : 

FA9D 

FF 

FF. 


‘ 2683 

' DB 

FILL, FILL 




FA9F 

80 

81 

• 

2684 

DB 

P001 , PG01+1 



; • :- - 7 *' . ■ ' .»• 

FAA1 




' 2685 





• •• . . i - 

FAA1 

31 

21 

71 51 

., • 2686 

; / asc 

f 1 ! **QaAzZ ' l col 1 



•: i '. .;’i •••’ ; V.*;' 

61 

41 

7A 

5A 






: . ‘ ..... . 

FAA9 




• 2687 





:• 

FAA9 

32 

22 

77 57 

, 2688 

ASC 

/ 2 M wWsSxX " 1 col 2 



• ' • 

73 

53 

78 

58 



, ‘ i • 



‘ • 

FAB1 




V ‘ 2689 

•, •' 

’ “i*, , • . ‘ 



‘ * ' . ’’ ' ’ . 

FAB1 

33 

23 

65 45 

.‘2690 

• . , ASC 

/ 34eEdDcC / I col 3 




64 

M 

63 

43 



A 




mi 




* / ’ 2691 

’ 

•1 f * 




Eab? 34 24 

72 §2 

; 2492 

Ase 

'4*rRfFvV' 1 col 4 




66 

46 

•76 

56 

• » ■ 


. t *. 




FAC1 




2693 





: .VV-. ; v 

FAC1 

35 

25 

74 54 

: v 2694 

ASC 

/S’/.tTsGbB' 1 col 5 



■ • . .r • * * ' ' 

67 

47 

62 

42 

: . 

• * ; . 

- .7 • 4 : 




FAC9 




2695 





, r . j 


FAC9 

36 

26 

79 

59 

2696 

ASC 

'68<YYhHnN' 

» 

col 

6 

63 

43 

6E 

4E 








FAD1 





2697 






FAD1 

37 

27 

75 

55 

. 2698 

ASC 

M 7'uUJ JinM" 

1 

col 

7 

6A 

4A 

6D 

A D 








FAD9 





2699 


, * *‘- 


• 


FAD9 

38 

28 

69 

49 

2700 

ASC 

'8 ( ilkK.C' 

l 

col 

8 

6B 

4B 

2C 

3C 








FAE1 





; 2701 

; 





FAE1 

39 

29 

6F 

4F 

-•/! 2702 

ASC 

'9) oOl L. >' 

1 

col 

9 

6C 

4C 

2E 

3E 


), 1 l 

: * l 






FAE9 





2703 






FAE9 

30 

20 

70 

50 ’ 

‘ . 2704 

ASC 

' 0 p?\+/9' 

• col 

3B 

2B 

2F 

3F 

* 







FAF1 





1 2705 






FAFl 

2D 

3D 

40 

60 

M* 2706 

ASC 


; 

col 

11 

3A 

2A 










FAF7 

20 

20 



2707 

DB 

SPACE, SPACE 




FAR9 




, 

2708 


• * i 




FAF9 

5E 

7E 



/ 2709 

; ASC 

✓ 

? 

col 

12 

FAFB 

OD 

OD 

. , » » 

* 

it 2710 

DB 

RETURN, RETURN 




FAFD 

5F 

7F 



: 27ii 

DB 

CUNDL.CDEL 


/ 


FAFF 

FF 

FF 



2712 

DB 

FILL, FILL 


( 


FB01 





^ 2713 






FB01 

5B 

7B 



2714 

. 1 ASC 

'CC' • 

i 

col 

13 

FB03 

OD 

OD 

: « . : 


2715 

DB 

RETURN, RETURN 




FB05 

OB 

OB 



‘ 2716 

DB 

CUP, CUP 




FB07 

08 

08 


.. 

; 2717 

DB 

CLEFT t CLEFT 




FB09 


; * 



2718 


V - • 




FB09 

5C 

7C 



2719 

ASC . 



1 col 14 

FBOB 

82 

83 


. * 

2720 

DB 

P023, PG23+1 




FBOD 

OA 

OA 



2721 

DB 

CLF.CLF 




FBOF 

OC 

OC 



2722 

' DB 

CRIGHT * CRIGHT 




FBI 1 





’ 2723 


TV.*- 




FBI 1 

5D 

7D 

» '■ 


• 2724 

ASC 

/ 3) / - 


1 col 

15 

FB13 

FF 

FF 

' * \ 


2725 

6 b 

FILL. FILL 




FB15 

FF 

FF 



V 2726 

DB 

FILL, FILL 




FB17 

FF 

FF 



. 2727 

DB 

FILL. FILL . 





FB19 ' 2728 I 

FB19 : 2729 I • . , • 

FB19 2730 t thii It the map of the SWEDISH expander keyboard 

fbi 9 •: >'■ , ; , 2731 i . 

FB19 • 2732 ' r {"••• 

FBI 9 : 2733 SKMAP EQU 

FB19 : 2734 . ! • *• ' 


FB19 

IB IB 



; 2735 

. DB 

KBESC.KBESC 

f col 0 


FB1B 

09 09 



2736 

DB 

KBTAB, KBTAB 



FB1D 

FF FF 



2737 

DB 

FILL, FILL 



FB1F 

80 81 ■ 

’ 


1 2738 

DB 

PG01 , PG01+1 


‘ ’ • 

FB21 




2739 . 

• • Y. • • 

. .. 



FB21 

31 21 

71 

51 : 

i - 2740 

ASC • 

'1 JiQaAzZ' 

1 col 1 

■ •. *1 

61 

41 7A 

5A 

, • 

V. 


• * • \ 

. 

• * : l 

FB29 




V 2741 




‘ . : ' 

FB29 

32 22 

77 

57 

2742 

ASC 

'2"ujWsSxX' 

1 col/ 2 


73 

53 78 

58 





/ 


FB31 




2743 




, * - 

FB31 

33 23 

65 

45 

. 2744 

ASC 

'3#eEdDcC' 

? col 3 

i 

64 

44 63 

43 






• i • 

FB39 




2745 





FB39 

34 24 

72 

52 

•• 2746 

ASC 

'4*rRfFvV' 

1 col 4 

* is "circle X" 


•• I 


66 

46 

76 

56 



r 



FB4 1 




2747 





FB4 1 

35 

25 

74 54 

2748 


ASC 

/'S’/.tTuGbB' 

J 

67 

47 

62 

42 






FB49 




2749 





FB49 

36 

26 

79 59 

2750 


ASC ‘ 

'6*<vYhHnN' 

1 

68 

48 

6E 

4E 






FB5 1 




2751 





FB51 

37 

2F 

75 55 

•r, 2752 


ASC 

"7/uUlJjhW 

? 

6A 

4A 

6D 

4D 




!. 


FB59 




2753 



1. 


FB59 

38 

28 

69 1 49 

V. 2754 


ASC 

'8(iIkK. 1 ' 

1 

6B 

4B 

2C 

3B 




.. ; ;• . . 


FB61 




2755 





FB61 

39 

29, 

6F 4F 

v; ? ; 2756 


ASC 

• / 9)o01L.i ' 

» 

6C 

4C 

2E 

3A , 






FB69 




J 2757 


: ’ '' .. 



FB69 

30 

3D 

70 50 

' v :: ‘ 2758 


ASC 

/0=pP 1 \-f 

1 

7C 

5C 

2D 

> \ 

•T.‘ • * •• ' 



1 ' 


FB70 

5F * 



2759 


‘ DB 

CUNDL r 


FB71 

i ' 



. 2760 



■ . • . t* ; ; 1. 


FB71 

2B 

3F 

7D 5D 

2761 


ASC 

'+?) DCC' 

J 

7B 

5B 








FB77 

20 

20 


2762 


DB 

SPACE, SPACE 


FB79 




2763 





FB79 

60 40 


2764 


ASC 


; 

FB7B 

OD 

OD 


2765 


DB 

RETURN, RETURN 


FB7D 

27 

2A 


2766 


ASC 



FB7F 

FF 

FF 


2767 


DB 

FILL, FILL 


FB81 




2768 





FB81 

7E 

5E 


2769 


u ASC 

/ y ’ > 

? 

FB83 

OD 

OD 


2770 


DB 

RETURN, RETURN 


FB85 

OB 

OB 


2771 


DB 

CUP, CUP 


FB87 

08 

08 


2772 


• DB 

CLEFT, CLEFT 


FB99 




2773 





FB89 

3E 

3C 


2774 


ASC 

OC' 

5 

FB8B 

82 

83 


4 2775 


DB 

PG23, P023+1 


FB8D 

OA 

OA 


2776 


' DB : 

CLF.CLF 


FB8F 

OC 

OC 

, t 1 

2777 


DB 

CRIOHT , CRIOHT 


FB91 



. .... 

2778 



. • .• 


FB91 

7F 

7F 


2779 


DB 

CDEL, CDEL 

3 

FB93 

FF 

FF 


* ' 2780 


DB 

FILL, FILL 


FB95 

FF 

FF 


•*. 2781 


. DB . 

FILL, FILL 


FB97 

FF 

FF 


2782 


. DB 

FILL, FILL 


FB99 

I 



2783 

1 


• i. * !- • • *** 


-FB99 


.. * *** 

* • « 

2784 


1 : COPY 

CAS. I NT/ 1 


FB99 


;«■ * 


' 2785 

? 




FB99 


;'•* 

>• ‘ : 

27e6 

1 

CXTIMER - 

Cassette output 

FB99 

t 

, i 


27 8 7 

1 


>• • • 


FB99 




2788 



; T %' 


FB99 

F5 

; » * 

, 'V, 

, 2789 

CXTIMER PUSH AF V 

1 

FB9A 

DD 

22 

BA FE 

2790 


LD 

( ISAV1 ) , I X 


FB9E 




’ 2791 





FB9E 

DD 

21 

3C FE 

2792 


LD 

IX , CDATA 

1 

FBA2 




•2793 





FBA2 

3E 

FO 


* 2794 


LD 

A, -16 


FBA4 

D3 

BD 


2795 


OUT 

(RTC) • A 


FBA6 




2796 





FBA6 

DD 

35 

00 

2797 


. DEC 

( I X+CXBC-CDATA ) 

FBA9 

F2 

CD 

F3 

2798 


JP 

P, CXT2-P1BI AS 



UAh* 


1 1/2/81 


col 5 

col 6 

col 7 

col 3 

col 9 


. y 


col 10 I is o u// umlaut* \ is. C 

. I 

col 11 ) is a with circle* 3 J 

» C is a w/ umlaut* C is 
col 12 s is e accent* 0 is E 

• . • ' . . .. . 4 f * * 

col 13 - is u with umlaut. / 


col 14 


col 15 


• • v.‘ 


• » v! 


. ' •• v .7: 

f i . i :• 7 '7; 

timer interrupt hand 1 er *1 \ —7 

save flass and a . '. ! . 

’ . . ’ .yy •. 

load cassette stuff address 


-47- 



W umlaut .• ;V 



s Aw/ circle 
A w / umlaut 
! accent 



is U w/ umlaut 



i : • v 


I 


r FBAC 





2799 





> FBAC 

DD 

CB 

36 

86 

2300 . 

RES 

CXSRL, ( IX+CFLGS-CDATA) 1 say shift resister not loaded 


.-‘O'-. FBBO 

DD 

CB 

36 

4E 

2801 ; 

BIT 

CXBRL, < IX+CFLGS-CDATA) 1 anything in the xmit buffer? 


• FBB4 

20 

05 



2802 

JR 

NZiCXTl 

. . 


FBB6 





2803 ‘i 



. • * l 

. • . • * 1 J , 


FBB6 

AF 




2804 . 

XOR 

A -I.'/’” 

.• \ * • * 

. . \ ■ 

' FBB7 

D3 

BD 



2805 ! 

OUT 

( RTC ) , A 

. . , . 1 . . 

■» » 1 ■ 

FBB9 

18 

43 



2806 

JR • 

CXTDONE 

’• • • . IV' 

• i • ■ * 

FBBB 





2807 . 


, l ; . , 


* • • f ' 

FBBB 

DD 

CB 

36 

8E 

2808 ,CXT 1 

RES 

CXBRL, ( IX+CFLGS-CDATA) 1 say buffer res not loaded 


FBBF 

DD 

CB 

36 

C6 

2809 ' 

SET 

CXSRL, (IX+CFLGS-CDATA) i say shift resister loaded 

• ■ • • 

FBC3 

3A 

3E 

FE 


2810 ! 

LD 

A, ( CXBR ) 

t set value in xmit buffer register 

■'V* s -i.» • 

FBC6 

32 

3F 

FE 


\ 2811 ‘ i 

LD 

( CXSR ) i A 

1 ...to the shift resister 

, ' V/tV -y* ■ 

FBC9 

DD 

36 

00 

OF 

;• 2812 

LD 

( IX+CXBC-CDATA) t 15 1 set counter. to 15 to force clock • 

'/•V 

. .. i ' 

FBCD 





;s 2813 



. • , • ‘ 

* \ . N . 

■ ’ ; t 

FBCD 

DD 

CB 

00 

46 

2814 CXT2 

BIT 

0, ( IX+CXBC-CDATA) ‘ * . 

/■ V • 

FBD1 

20 

06 



2815 

JR 

NZ.CXT3 


FBD3 





2816 . 



/ '* • 

' . 7- v .. 

~ FBD3 

DD 

CB 

03 

06 

2817 

RLC 

( IX+CXSR-CDATA) • 1 then send next data bit, set the bit. 

•" •: • 

FBD7 

30 

25 



2818 j 

JR . 

NC. CXTDONE 

5 Jump if the next bit is zero 

■ v • : 1 

FBD9 





2819 ; 


, . . 


; • v 

/ FBD9 

3A 

7F 

FE 


2820 CXT3 

. LD 

A, (SMASK) 

? else get the port value 


FBDC 

E6 

CF 



2821, 

AND 

XCSTATE 

» knock out the cassette bits 

• . 
i«* , ■ 

FBOE 

F6 

10 



2822 

OR 

CHI 

1 set the 1 ine hi 

•• 1 .. , 

FBEO 

D3 

BE 



2823 

OUT 

(CASPORT), A 


' Vv 5 ^ 

S FBE2 





2824 , 




FBE2 

3E 

28 



2825 

LD 

a.4o;”,V;” ' 

1 delay a while 

k • 

FBE4 

3D 




2826 CXT4 

DEC 

A 


* : 

FBE5 

20 

FD 



2827 

JR 

NZ,CXT4 ! ‘ 



FBE7 





2828 




. v 

FBE7 

3A 

7F 

FE 


2829 

LD 

A, (SMASK) 

, . 

: 'V 

FBEA 

E6 

CF 



2830 

AND 

XCSTATE 

1 set the line 1 ow 


FBEC 

F 6 

20 



2831. 

OR 

CLOW ‘ 


' .• v ! • 

FBEE 

D3 

BE 


1 

2832 

OUT 

(CASPORT), A 

• 1 •* « • ' . « 


FBFO 





2833 


• *. » 



FBFO 

3E 

28 



2834 

LD 

A, 40 

1 delay a while 


FBF2 

3D 




2835 CXT5 

DEC 

A 



FBF3 

20 

FD 



2836 

JR 

NZ.CXT5 


• ;•/ i l • 

FBF5 





’• 2837 


' * 


.• ‘ 

FBF5 

3A 

7F 

FE 


2838 

LD 

A, (SMASK) 



FBF8 

E6 

CF 

■ . 


2839 

AND 

XCSTATE 

i set the line mid V 


FBFA 

F6 

00 



2840 

OR 

CMID : \ 



FBFC 

D3 

BE 



- 2841; | 

OUT 

(CASPORT), A 

. * *. i , 

i 


1 ■ . 

FBFE 





2842 


.• ; .j l! t - . ;• • 

• 1. y \ 

FBFE 

DD 

2A 

BA 

FE 

2343 CXTDONE LD 

IX, ( IS AVI ) 

•*' ‘ i .-;. , V'i- v , ; . V 


FC02 

C3 

F 2 

F7 


: 2844 

• JP 

IRET1-P1BIAS 

.. : V. . 

FC05 





2845 1 


„ . 

v 


FC05 





2846 ? 


1 , !. 



FC05 





2947 1 CRTIMER - 

Cassette receiver lnrut timer • 


FC05 





2848 1 





FC05 


• . - 



2849 



* . 


FC05 

F5 




' 2850 CRTIMER PUSH AF 

1 save flags • ; | 1 ‘ 


FC06 

DD 

22 

BA 

FE 

2851 

LD 

( ISAV1 ) , I X 

\ and ix reg .. j ' » 


FCOA 





2852 





FCOA 

DD 

21 

3C 

FE 

2853 

LD 

IX, CDATA 

1 point to cassette data storage 

. ; 

FCOE 





2854 





FCOE 

AF 




2855 

XOR 

A 

? stop the real time clock , * 


FCOF 

D3 

BD 



2856 

OUT 

(RTC), A 



FCll 





2857 



• , 


FCit 

DD 

CB 

36 

16 

2858 

RL 

( IX+CFLGS-CDATA) .1 shift any data bit to carry 



- 43 - 


UAI | J X X / Jm / C* 1 


FC15 

DD 

CB 

35 

16 

2859 


RL 

( I X+CRSR-CDATA) > and rotate it into the shift res» 

FC19 

DD 

CB 

36 

3E 

2360 


SRL 

( I X+CFLGS-CDATA ) ; clear saw data bit 

FC1D 

DD 

CB 

36 

A6 

2861 


RES 

CDATB. ( IX+CFLGS-CDATA) t reset data bit flag 

FC21 

DD 

35 

01 


2362 


DEC 

( 1X+CRBC-CDATA) 5 decrement receive bit count 

FC24 

F2 

31 

F4 


2363 


JP 

P»CRT 1-P1BI AS 

; J Ufrip if not done , 

FC27 





2364 





FC27 

DD 

CB 

36 

D6 

2865 


SET 

CRSRL, (IX+CFLGS-CDATA) ? sav shift res loading ’ '■['* {{• •• 

FC2B 

DD 

36 

01 

07 

2866 


LD 

< IX+CRBC-CDATA) ,7 ; set bit count . V 

FC2F 

18 

10 


. * 

2367 

• ‘ • ’ : 

JR 

CRT2 

1 and wait for clock bit ' . 

FC31 




-V, 

2868 



' *•’' 1 


FC31 

20 

OE 


• % ’* . * 

2869 

CRT 1 

JR 

NZ , CRT2 

1 Jump if not last bit 

FC33 

3A 

71 

FE 

#, • 

2370 


LD 

A, (CRSR) 

; get contents of shift register 

FC36 

32 

70 

FE 


2371 


LD 

(CRBR) , A 

1 .-..to buffer register .. 

FC39 

DD 

CB 

36 

deV 

2872 


SET 

CRBRL, ( I X+CFLG3— CDATA ) ? say recv. buf. res. lpaded f-\. 

FC3D 

DD 

CB 

36 

96 

2873 


RES 

CRSRL, ( I X+CFLGS-CDATA ) 5 recv, shift res not loading V f *?. 

FC41 




t 

2874 




• . ' **V, 

FC41 

DD 

2A 

BA 

FE 

. 2375 

CRT2 

LD 

IX. (ISAV1) 

1 retrieve ix 

FC45 

03 

F2 

F7 


2876 


JP 

IRET1-P1BI AS 

. . . . . • • . • v . • . • 

FC43 





2877 

? 


I* 

, • * ■ >,* • • 

FC48 





2378 

1 




FC48 





2879 

1 CEDOE - Cassette edge detector interrupt processor " V 

FC48 





2880 

t 




FC43 





2881 



i 1 : ‘ 


FC48 

F5 




2882 

CEDOE 

PUSH 

AF 

t save f 1 ags 

FC49 

DD 

22 

BA 

FE 

2383 


LD 

(ISAV1 ) .IX 

i and ix 

FC4D 





2884 




... ... ' • / ... . \ ' •' 

FC4D 

DD 

21 

3C 

FE . 

r 2e85 


LD , 

IX.CDATA 

1 point to cassette data storage 

FC51 


, 



2886 



‘ - V ,i 

1 , : i;-. • : • >. " "• V";:' 

FC51 

DD 

CB 

36 

66 

2887 


BIT 

CDATB. (IX+CFLOS-CDATA) 1 check bit'tvpe (data or ‘clock) 

FC55 

20 

OA 



: 2888 


JR 

NZ.CE1 . 

1 Jump if bit type' is data , '' { 

FC57 





2839 

•V 



‘ •, - * i.' 

FC57 

DD 

CB 

36 

E6 

2890 


SET 

CDATB, (IX+CFLGS-CDATA) I else sav next bit is data . 

FC5B 

3E 

ED 



2891 


LD 

A» -19 

1 start realtime clock for -1.2 msec : /. t - 

FC5D 

D3 

BD 



2892 


OUT 

(RTC).A 


FC5F 

18 

04 



2893 


JR 

CE2 

Land done L;, c . 

FC61 





2894 




‘ " ' ' • ,* ’• •-* • • ’ • • • v l ' %X ‘ 

FC61 

DD 

CB 

36 

FE 

2895 

CE1 

SET 

CSAWB. ( IX+CFLGS-CDATA) 1 say saw bit 1 > « 

FC65 




, • 

2896 




. ; ; •• •*••• • • •• • - 

FC65 

3A 

7F 

FE 


2897 

CE2 

LD 

A. (SMASK) 

1 reenable the edge detector interrupt ; 

FC68 

CB 

BF 

* 


2898 


RES 

7, A 

• • , ' ’ • • • ’• , ■' r 

FC6A 

D3 

BE 



2899 


OUT 

( CASPORT) • A 


FC6C 

CB 

FF 



2900 


SET 

7. A 

/• - ; : ’-V r • • ■ , • 

FC6E 

32 

7F 

FE 

,. v 

2901 

» 

LD 

(SMASK) .A 

V,.* 4> : . *• ;• 

FC71 

D3 

BE 



2902 


OUT • 

(CASPORT), A 

. . . j.v'V-s'V- ’ r 'V 

FC73 

DD 

2A 

BA 

FE 5 

? 2903 


LD 

IX, (ISAV1) 

•• :\\\ : . -ft . - A..:, 

• • • * |4’ • , . • 

FC77 

C3 

F2 

F7 


. 2904 


JP 

IRET1-P1BIAS 

■ V- " ' r ' ! 

FC7A 





2905 

* . ‘ • . . 


. r j. .» 

r • . • • • . S- ‘ • 

FC7A 





' 2906 

• • , . 


• k V * ■ 

> - 4 "J *. . • •••'. ' 

FC7A 

'} : 


. i 

, 

2907 

I 


' V 

• ' . . J ** f * ' ' • • •< • 1 V : • ’ J . 

FC7A 




■ 

•* 2908 

1 C8ED0E - 

Cassette sync 

edge detector • 

FC7A 



, . 


.29.09 

? 

Only 

valid while executing SYNC ! ./ . ’ -i ' 

FC7A 




) 

2910 

; .• 




FC7A 




■ » " 

2911 



* • 

1 ■ ■ i i \ : 

FC7A 

F5 




2912 

CSEDOE PUSH 

1 AF . ’ 

:• •’ •* 

FC7B 





2913 



.1 • 

1 • • • ■ 

FC7B 

3A 

7F 

FE 


2914 


LD 

A. (SMASK) 

? reenable edge detector ; 

FC7E 

CB 

BF 

i 


2915 


RES 

7, A 


FC80 

D3 

BE 

1 


2916 


OUT 

(CASPORT) , A 

■ • \ . . 

FC82 

CB 

FF 



2917 


SET 

7, A 

• • . . ' : 

FC84 

32 

7F 

FE 


2918 


LD 

(SMASK), A 



- 09 - 


FC87 

D3 

BE 



2919 


OUT 

( CASPORT ) , A 

/ • 

FC39 

CB 

FB 



2920 


SET 

CSAWB * E 

? say we saw a bit 

FCSB 

C3 

F2 

F7 


2921 


JP 

IRET1-P1BIAS 

• 

FC8E 





2922 

; 




FC8E 





2923 

t 


l 


FC8E 





2924 

1 CSTIMER - 

Cassette sync 

timer 

FC8E 





2925 

1 

On 1 y 

valid while executing SYNC 

FC8E 





2926 

1 


i 

• . 1 1 ’ • '■ . .-y ? * 

FC8E 




. , 

2927 



• • : 

• ' . *■’»'* ’*• - •' ' * •' 

FC8E 

F5 




2928 

CSTIMER PUSH AF •' 

. * • • • ' • 

FC8F 

AF 



•v , 

2929 


XOR 

A 

1 stop the realtime clock 

FC90 

D3 

BD 


4 ; 

2930 


OUT 

( RTC ) a A 

| * “ • 

FC92 

CB 

03 



2931 


RLC 

E . ; 

1 rotate saw bit flag to carry... 

FC94 

CB 

12 


i' ■ 

2932 


RL 

D 

1 and into byte accumulator 

FC96 

CB 

EB 



2933 


SET 

CTOUT.E 

l say 'we timed out ' j . '• • 

FC98 

C3 

F2 

F7 

i i i 

2934 


JP 

IRET 1-P1BI AS 

. : V ‘ . •*' ; 

FC9B 



1 


2935 

1 



' , . • • . • • . % • i i 

FC9B 





2936 


COPY 

P1ENT.CD/1 

. ' •• i’ y : . ••*■.••• / ’■ 

FC9B 





2937 

1 



• r-.-SV: * ■ • • •*-/; v • ■ , * 

FC9B 





2938 

1 PI ENTER - 

the actual enter command ... li," * ' V* 

FC9B 





2939 

1 


v\ * , 


FC9B 





2940 



. 1 ’ • 

’ ’ •; : V/!; ’ 

FC9B 

FD 

21 

ED 

F2 

2941 

PI ENTER LD 

IYt OETADDR 

1 get original enter address «; . • 

FC9F 

CD 

D3 

F7 


2942 


CALL 

PI TP0-P1BI AS 

■ vv. ‘ . : l! r ■ / r- ; : • *' 

FCA2 

D3 




2943 


RET 

C 

• • , K Jt .1 . 

FCA3 

D5 




2944 


PUSH 

DE . 

I move it to ix * • / V*’ ‘ 

FCA4 

DD 

El 



2945 


POP 

■ IX “ . 


FCA6 





2946 


x ] 



FCA6 

21 

ED 

F4 


2947 

ENTR 

LD 

HL. P1CRLF-P1 BIAS - . .r • . r.; 

FCA9 

CD 

5D 

F6 


2948 


CALL 

P1PUTS-P1BIAS 

.■ • y \ ,**.• ‘ ■ •.,* ’ :*/ *• . fc ■;*. 

FCAC 





2949 




,‘ ( ;; *. ! . •. '•> • f 

FCAC 

FD 

21 

C5 

F2 

2950 


LD 

IYt OETLINE 

1 get line of data . ■ 

FCBO 

CD 

D3 

F7 


2951 


CALL 

P1TP0-P1BI AS 

.. / • • ' . • ‘ :, ;y : .. . 

FCB3 





2952 




‘ V :• ' , 

FOB 3 

2A 

30 

FE 


2953 


LD 

HL» (CURPOS) 

I rap the cursor v ‘ V 

FCB6 

3A 

32 

FE 


2954 


LD 

A» (WASTHERE) 

; • \. ‘ . . •■•y 

FCB9 

77 




2955 


LD 

(HL). A 

. , • ' 

FCBA 





2956 



i 1 


FCBA 

FD 

21 

B 1 

F5 

2957 


LD 

IY. ATOLC 

1 calculate screen address of start of line 

FCBE 

CD 

D3 

F7 


2958 


CALL 

PI TP0-P1BIAS 


FCC1 

79 




2959 


LD 

A.C • 

1 check if no data ( ie. Just a carriage return) 

FCC2 

B7 




2960 


OR 

A : 

• ‘ . i*. • . . 

FCC3 

C8 




2961 


RET 

1 ’ V 

1 end of enter if so 

FCC4 



, 


2962 



i ' 


FCC4 

OE 

00 



2963 

■ 

LD 

c.o 

1 else set cursor to start of the line 

FCC6 

FD 

21 

88 

F5 /. 

2964 


LD 

IY.LCTOA 

:';.y * • ; ■ ’ s t ; j y;v v .‘‘ 

FCCA 

CD 

D3 

F7 


2965 


CALL 

P1TP0-P1BI AS 

* •;* t > • ’ . • '•* K : 

FCCD 





2966 




f. »• • '• y ; V ■ * ' 

FCCD 

FD 

21 

F3 

F2 

, 2967 

EN1 

LD 

IYt OHWORD 

1 get the next word ' ; v : f V . ' r i / f \ 

FCD1 

CD 

D3 

F7 


2968 


CALL 

P1TP0-P1BI AS 

1 Jump if no error. ! ' Y - : l »- •*' . i • y * ' v 

FCD4 

30 

06 



2969 


JR 

NC.EN2 , 

FCD6 





2970 



: ; i 

1 :• , 1 : -1 */ ' /’ • 

FCD6 

FE 

20 



297.1 


CP 

• / / '* y ’ 

1 check if error was no data word r . 

FCD8 

28 

CC 



2972 


JR 

2. ENTR 

•» get next line if so . .... , • 

FCDA 

37, 



2973 


SCF 



FCDB 

C9 




2974 


RET 


? else error ‘ •«.-* ‘ • 

FCDC 





2975 





FCDC 

FE 

3A 

■ i 


2976 

EN2 

CP 

** i + 

? new address specified? 

FCDE 

20 

06 



2977 


JR 

NZ » EN3 

1 J UfTlP if 50 

FCEO 

23 




2978 


INC 

HL • 

» skip the colon 


- 50 - * 


iryp . <5 


i i /T*/rn 


and set 'new address to ix 


• - IFCfcli 05 2979 PUSH DE 

l ' ,, FCE2 DD El 2980 POP IX 

■ ' FCE4 18 E7 2931 JR EN1 ' ! set next uxJrd 

f FCE6 2982 


FCE6 

DD 

73 

00 


2983 

EN3 

LD 

( I X+0 ) * E 1 

else plop data into memory 

■■ * * ‘ r 

FCE9 

DD 

23 



2984 


INC 

IX 

increment pointer 


FCEB 

IS 

EO 



2985 


JR 

EN1 


- j , ‘ 

FCED 




% 

, 2986 






FCED 

OD 

OA 

00 


. 2987 

P1CRLF DB 

OODH • OOAH f OOOH 



FCFO 





*’.2983 

1 





FCFO 





' 2989 


COPY 

PICAS. CD/1 

r j i. . 

■ - . • 

FCFO 





; 2990 

1 





FCFO 





2991 

; P1CSAVE - 

Write a block of 

: dat^L to the cassette ' . 


FCFO 





2992 

1 




• : ; . • . . : 

FCFO 





2993 



i • 



FCFO 

ED 

73 

FE 

FE 

2994 

P1CSAVE LD 

(CSP) ,SP 



FCF4 

31 

40 

FF 


V2995 


LD 

SP? CSTACK 

/’• . ' .'v *•' ••• " 


FCF7 




. .. 

2996 




/ \ ; 

• • * *:* * . ‘ . \ ; 

FCF7 

11 

FI 

FE 


2997 


LD 

DE, CNAME T 

point to a buffer for thename 

FCFA 

CD 

30 

F6 


2998 


CALL 

GETNAME-P1BI AS 

; set the name 


FCFD 

33 

3D 


i 

2999 


JR 

C.SAVE3 1 

return if no name 

, . v ■ • . _ . . '• 

FCFF 





3000 





' • j-’"’. ’ ‘ , : 

FCFF 

FD 

21 

ED 

F2 

3001 


LD 

I Y» OETADDR 1 

set starting address to DE 

* : ; , , • • ’ ... . 

FD03 

CD 

D3 

F7 


3002 


CALL 

P1TP0-P1BI AS 


■ •• . ' •’ ; V ’ 

FD06 

38 

34 



3003 


JR . 

C.SAVE3 * 

return i f error 

■. • ' 4 v ’ :• *1. - 

FD03 





3004 






FD03 

ED 

53 

F8 

FE 

3005 


LD 

( CSADDR ) * DE 1 

save start address 

| f. *’ <• > c *• 

FDOC 

CD 

D3 

F7 


3006 


CALL 

P1TP0-P1BIAS 5 

set end address to DE ? 


FDOF 

38 

2B 



3007 


JR 

C.SAVE3 J 

re turn i f error 

* . \..:i 

FD11 





3003 



.* 

. , *• * 

• • 0:. ’ * . 

FD1 1 

7E 




3009 


LD 

A,(HL) 1 

check for lesal end address 

■ { 

FD12 

FE 

20 



3010 


CP 

/ ✓ 

1 terminating character must 

be a space 

FD14 

37 



l 

3011 


SCF 

* • i * | • 



FD15 

20 

25 



3012 

t: 

*1 

JR 

nz,save;3, . 

• ; ‘ | f/ 1 ' 

•• •*. , • ». * i '• ' * ; • *' •' 

FD1 7 





3013 


9 

v V i | I 


* •• • • • • • . 

. / ’■ •*;*! "t~ • 

FD17 

2A 

F0 

FE 


3014 


LD , 

HL, (CSADDR) 1 

check for start <- end i- 

•*■ :• •• 

FD1 A 

EB 




3015 


EX 

DE.HL 

- ■ f * • 

. ; ••/' '. ■ ; 

FD1B 

B7 




3016 


OR 

A ■ I' -! 1 

cl ear carry 

' ' '• ./ , 

FDiC 

ED 

52 



3017 


SBC 

HL.DE 

• .• A •r: ? - v* 

' , *' i .. J • " ' \t 

FD1E 

30 

09 



3018 


JR 

NC» SAVE2 ? 

J ump i f ok 

• : ’« *• *; •• *'• ' 

FD20 





3019 




\ ; 

* 1 •. 

FD20 

21 

41 

F5 


3020 


LD 

HL * ROERR-P 1 B I AS 

\ ' t ' 1 *; 


FD23 

CD 

5D 

F6 


3021 


CALL 

P1PUTS-P1BI AS 1 

else print error message ' 

■ i" ; . ; 

FD26 

B7 




3022 


OR 

A 1 

clear carry 

* ‘ ‘ •* • *■ 

FD27 

18 

13 



3023 


JR 

SAVES; 



FD29 





3024 




' • 


FD29 

23 




3023 

SAVE2 

INC 

HL I 

compute count (start end + 

1) 

FD2A 

22 

FA 

FE 


3026 


LD 

(CCOUNT).HL 



FD2D 




\ 

* '3027 





• ’ , t r t . • ’. V . 

FD2D 

21 

FI 

FE 

t 

3028 


LD 

HL, CNAME ? 

point to the file header r 


FD30 

CD 

99 

F5 


3029 


CALL 

P1WFILE-P1BI AS 

1 write the file •, * , 

• . • ; t .i 

FD33 

30 

07 



3030 


JR 

NC.SAVE3 


* . ‘ -vi » 

FD35 

21 

4F 

F5 


3031 


LD 

HL , SVABRT-P 1 B I AS •" - V*’ 


FD33 

CD 

50 

F6 

f 

3032 


CALL 

P1PUTS-P1BI AS 


\ , 

FD3B 

B7 




3033 


OR 

A 

. .1 ' .7. ‘ • ’ 


FD3C 

ED 

7B 

FE 

FE 

3034 

SAVE3 

LD 

SP.(CSP) 

* 

■ • ’* ••• 

FD40 

C9 




3035 


RET 


* 


FD4 1 





3036 




, * . 


FD4 1 

OD 

OA 



3037 

ROERR 

DB 

OODH, OOAH 

*V 


FD43 

52 

61 

6E 

67 

3038 


ASC 

"Ranse E rror" ■: . 



- 51 - 



20 

65 

72 

72 

/ 





' . < ■ 6F 

72 






! 



■ ■■ FD4E 

00 





3039 


DB 

0 

| i yj fdif 






3040 


/ 


%•,, .•,*/' FD4F 

0D 

OA 




3041 

SVABRT DB 

OODH# OOAH 

Vr. FD51 

53 

61 

76 

65 


3042 

I 

ASC 

"Save . % Aborted" 

• V -;i 20 

61 

62 

6F 

72 






Tr 74 

65 

64 



: 


\ . 


.... . i 

FD5D 

00 





3043 


• . DB 

0 

FD5E 


» 



!v 

3044 



• . f : . 

\ FD5E 





i ; 

3045 

# 


» \ 9 • 

FD5E 






3046 

I 


\ i /. 

FD5E 





U 

3047 

1 

P1CAT - Print a list of the files on the tape. 

FD5E 





\ * m 
,r • 

3048 

t 


• •*’ ■ • ■:* 1 *■* 

FD5E 





v . 

3049 

I 

entry* nothing • , 

FD5E 






3050 

1 


■ i • i 

FD5E 






3051 

1 

exit* nothing , .* ^ 

FD5E 





■'k 

3052 

1 



FD5E . 






3053 




FD5E 

ED 

73 

FE 

FE 


3054 

PI CAT LD 

<CSP),SP 1 ■ , 

FD62 

31 

40 

FF 



3055 


LD 

SP.CSTACK 

FD65 






3056 



- ' • . ‘ . 

FD65 

FD 

21 

EF 

FI 


3057 

CAO LD 

IY.SYNC 1 start the motor and sync 

FD69 

CD 

D3 

F7 



3058 

i 

CALL 

P1TP0-P1BI AS 

FD6C 

33 

IF 




3059 


JR 

CtCAEXIT I Jump if abort key was hit 

FD6E 






3060 




FD6E 

11 

OD 

00 


• 1 

3061 


LD 

DEtl3 I else read the header 

FD71 

21 

FI 

FE 


, 

3062 


LD 

HLi CNAME 1 to here 

FD74 

FD 

21 

3C 

FI 


3063 


LD 

I Yt RBLOCK 

FD78 

CD 

D3 

F7 



3064 


CALL 

P1TP0-P1B I AS 

FD7B 

38 

10 




3065 


JR 

CtCAEXIT f Jump if abort key hit 

FD7D 






3066 




FD7D 

21 

IE 

F7 



3067 


LD 

HL* N0ERR-P1BIAS 1 init error string pointer 

FD80 

28 

03 




3068 


JR 

Z.CA1 , . ' 

FD32 






3069 




FD82 

21 

OA 

F7 



3070 


LD 

HL.CKERR-P1BIAS l point to error string' 

FD85 






3071 




FD85 

CD 

5D 

F6 



3072 

CA1 CALL 

P1PUTS-P1BIAS I print the error string 

' FD88 

CD 

6B 

F6 



3073 


CALL 

PHDR-P1 BIAS ? and the header ‘; v \‘ v 

FD3B 

18 

D8 




3074 


JR 

CAO 1 get next header . 

FD3D 






3075 


* , 

r >; . 

FD8D 

FD 

21 

8D 

F2 


3076 

CAEXIT LD 

IYtRTAIL 1 al 1 done* shut off tape'/ 

FD91 

CD 

D3 

F7 



3077 


CALL 

P1TP0-P1BIAS 

FD94 

ED 

7B 

FE 

FE 


3078 


LD 

SP.(CSP). • l - 

FD98 

C9 

*. 




3079 


RET 

■. t; • ? and so back * ' : ’’ifc V 

FD99 






3080 



•• " • . * • v- 

FD99 






3081 

i 


, • • * .■ 

FD99 






3032 

i 

P1WFILE - 

Write a file to the tape ; 

FD99 






3083 

l 


* ; • ' . • r - *: .*• 

FD99 






3034 

i 

uiasei call plwf il e-plbias H 

FD99 

■) 

• i •, 




3085 

» 


!, ■ ■ 

FD99 





*. / 

3086' 

? 

entry* hi 

has address of file header 

. FD99 






3087 

\ 


6 bytes of name* left Justified! null padded 

FD99 






3088 

\ 


1 null 

FD99 






3039 

\ 


2 bytes of start addressi low byte first v 

FD99 






3090 

j 


2 bytes of count* low byte first 

FD99 






3091 

5 


2 spares /* 

FD99 





l 

3092 

1 

. • 

• ' • V' • 

FD99 






3093 

1 

exit* the 

file has been written 

FD99 






3094 

I 


. . • ... *• ' *’ !*• • 


- 52 - 


jj* 



3095 • zaps* Just about everything 
FD99 3096 ? 

FD99 . i , 3097 

FD99 E5 3093 P1WFILE PUSH HL 1 save file header address 


FD9A 

FD 

21 

BE 

FI . 

3099 


LD 

I Y i WSYNC 

1 

start motor and write sync • 

. f 

. 

FD9E 

CD 

D3 

F7 


3100 


CALL 

P1TP0-P1 BIAS 





FDA I 





3101 








FDAl 

El 




3102 


POP 

HL 

1 

refresh header address 

» . . . 


FDA2 

E5 



• * . 

3103 


PUSH 

HL 



' . * r 


FDA3 



1 


3104 

. 







FDA3 

11 

OD 

00 

vi.. • 

3105 


LD 

DE, 13 

1 

size of the header 



FDA6 

FD 

21 

66 

FI 

3106 


' LD 

I Y , WBLGCK 

1 

write the file header 



FDAA 

CD 

D3 

F7 


3107 


CALL 

P1TP0-P1BI AS 





FDAD 

El 


i 

Fi t 

3108 


POP 

HL 

1 

set header address 

V. / 


FDAE 

33 

14 


t v 1 

. 3109 


JR 

C, WFDONE 

! 

.j unrip if abort in writing header. • ‘ .V:.- . 


FDBO 





3110 








FDBO 

11 

07 

00 

5 

3111 


LD 

DE, 7 

« 

calculate address of start address entry .. 


FDB3 

19 




3112 


• ADD 

HL, DE 



• . i 


FDB4 

5E 



7, 

3113 


LD 

E, (HL) 

1 

get start address to de - lo 

byte 


FDB5 

23 




3114 


INC 

HL ' • 



• • * 


FDB6 

56 




3115 


LD 

D, (HL) 

1 

hi byte 



FDB7 

23 




3116 


INC 

HL 





FDB8 

7E 




3117 


LD 

A, (HL) 

1 

get count to hi - lo byte 

•• ' V • 


FDB9 

23 




3118 


INC 

HL 





FDBA 

66 




3119 


LD 

H, (HL) 

! 

hi byte 

' L*'. 


FDBB 

6F 




3120 


• LD 

L, A 



• t * • • 


FDBC 

EB 




3121 


EX 

DE, HL 

I 

hi has. start address, de has 

count v’ 


FDBD 

FD 

21 

66 

FI 

3122 


• LD 

IYtWBLOCK 

5 

write the data block.'*' 

' •' 


FDC1 

CD 

D3 

F7 


3123 


CALL 

P1TP0-P1 BI AS 


'-,.»• ••• V /,.V • 

• * « ■ • *0 v ; • ...» 

• 


FDC4 

F5 • 

• 



= 3124 

WFDONE PUSH 

AF 



• . >* '«• • ' 


FDC5 

FD 

21 

7D 

F2 

3125 


LD 

I Y, WTAIL 





FDC9 

CD 

D3 

F7 


. 3126 


CALL 

P1TP0-P1BIAS 



•n 


FDCC 

FI 




3127 


* POP 

AF 





FBCD 

C9 




3128 


. RET 

’ • 


• \ ■ 

• ■ * .* * . 


FDCE 



’ 


3129 





■’ .* * 

. •; ' . . • f y • 


FDCE 





3130 

1 


i ■ 


• ’ ( 


FDCE 





3131 

1 

P1RFILE 

Locate a file 

and read it : 



FDCE 

; ‘ 


. 


3132 

1 




* • " •' j. 

• .* • * f V 


FDCE 





3133 

5 

usasei cal 1 pf i 1 e 


• • ' . • • ... 



FDCE 





3134 

1 


i 


... • ' . V »•. ».* 

• , * ' . c * 

* *• ‘ 


FDCE 





3135 

i 

entry! de 

has optional 

load address or -1 if none :< • 

• i'v /. - 


FDCE 





3136 

1 

if 

hi -1 then 

load the next file 



FDCE 





’ 3137 

1 

else hi points to 

name of file to load 

■ ’v ! . ’ * - • * 


FDCE 





3138 

» 


name i s upto 

6 

bytes terminated with a null 

• V . / : * 'y ') 


FDCE 





3139 

t 




• ' ' ■'.' •■A'* " 

. j V- ’• • • , 


FDCE 





3140 

1 

exiti carry is set if abort key was hit S ’ 1 * 

• ‘ 


FDCE 





3141 

1 

zero flag is set 

if 

checksum was correct • *; 



FDCE 





3142 

1 





• ; •* *v I: 


FDCE 





3143 

i 

zaps! Just about everything 

: ..'•'A; 


FDCE 





3144 

1 




t V •• • 



FDCE 





. 3145 





' ' ' ..’1. , ' 

' ... 


FDCE 

D5 

„ * . 



3146 

P1RFILE PUSH DE • • 


. • i; ' i 



FDCF 

E5 


. ) 


. ‘3147 


PUSH 

hl 



’ •*. • 


FDDO 





% 3148 





" • ' j; v • '* * 

*•* ‘ 


FDDO 





3149 

1 

read the 

next header 


'• */'+• * 

. * ( V*V v;.* ! 

0 \ 

FDDO 





3150 




*. V • * ’ 

• • 


FDDO 

FD 

21 

EF 

FI 

3151 

RF1 LD 

I Y, SYNC 

1 

sync on the tape 



FDD4 

CD 

D3 

F7 


3152 


, CALL 

P 1 TPO-P 1 BIAS 


* ‘ .*• ' .*•* • 

* '' , ‘ . . . . / ' . 


FDD7 

38 

19 



3153 


1 • JR 

C.RFABRT 

« 

Jump if abort key hit 



FDD9 





3154 









53 ' 


c.a r . o 


n/i:/ui 


FDD9 

AF 



3155 


XOR 

A 

, 

clear out the header buffer 

\ • 

FDDA 

06 

OD 


3156 


LD 

8,13 




FDDC. 

21 

FI 

FE 

3157 


LD 

ML, CNAME 




FDDF 

77 



3153 

RF10 

LD 

( ML) , A 




FDEO 

23 



3159 


INC 

HL 




FDEl 

10 

FC 


3160 


DJNZ 

RF 10 



• • r 

FDE3 




3161 







FDE3 

11 

OD 

00 

: 3162 


LD 

DE, 13 

1 

else read the header 


FDE6 

21 

FI 

FE 

3163 


LD 

HL, CNAME 


to here 

• v ’ v . . i . 

FDE9 

FD 

21 

3C 

FI 3164 


LD 

I Y, RBLOCK 




FDED 

CD 

D3 

F7 

3165 


CALL 

P1TP0-P1 B I AS 




FDFO 

30 

04 


, 3166 


JR 

NC.RF2 

1 

Jump if abort key wasn't hit 


FDF2 




Y 3167 



r . 



.• , 1 ■ 

FDF2 

El 


1 

it; * 3168 

RFABRT POP 

HL 

1 

else quit 

.. . 

FDF3 

D1 



3169 

.. 

POP 

DE ■ * 



v;v ; ’ / . •• ; *' 

FDF4 

18 

30 


% i 3170 

; ; 

JR 

RF6 • ; / 




FDF6 




* : r 3i7i 

i • ,y 






FDF6 

20 

D8 


3172 

RF2 

JR 

NZ.RF1 

1 

Jump if bad checksum 

... * — 

FDF8 




3173 



, 




FDF8 

D1 



3174 


POP 

DE 

r 

refresh name pointer 

*• , 

FDF9 

D5 



3175 


PUSH 

DE . 




FDFA 

13 



3176 


INC 

DE 



t . ■ 

, , * • . 1 1 

FDFB 

7B 



3177 


LD 

a, e • 

i 

check for "next file" 


FDFC 

B2 



3178 


OR 

d . 



*1 '*« ’ 

FDFD 

IB 



3179 


DEC 

DE * 



*. •• • 

FDFE 

28 

10 


3180 


JR 

Z , RF4 

? 

Jump if we want "next file" 


FEOO 




3181 







FEOO 

06 

06 


3182 


LD 

B, 6 • 

i 

else compare the names 

' ; s * 

FE02 

21 

FI 

FE 

3183 


LD 

HL, CNAME 

i 

point to name read from the tape 


FE05 

1A 



3184 

RF3 

LD 

A. (DE) 

f 

get next char from name of file 

to load .. \ •" 

FE06 

BE 



3185 


CP 

(HL) 

5 

compare w/ name from tape 


FE07 

20 

C7 


3186 


JR 

NZ.RF1 

1 

Jump if not equal 


FE09 




3187 







FE09 

B7 



3188 


OR 

A 


1 * . • ’ 

' V 

FEOA 

28 

04 


3189 


JR 

Z , RF4 

1 

check for terminator 


FEOC 




3190 






. • • ’ i ' ’ 

FEOC 

23 



3191 


INC 

HL ’V* 

1 

else increment pointers 


FEOD 

13 



3192 


INC 

DE 




FEOE 

10 

F5 


3193 


DJNZ' 

RF3 

1 

Jump if more characters in the name . , 

FEIO 


, ■ 


3194 







FEIO 

El 

■ i 


3195 

RF4 

POP 

HL ’• ; • * 

? 

remove name address 


FEU 

El 


1 * 

3196 


POP 

hl- r 

1 

set optional load address 

• i. ' . : \ 

FE 1 2 

23 



3197 


INC 

HL 

1 

check for optional load address 

■ ’ • ' ... ‘;/7 • 

FE13 

7D 



3198 


LD 

A, L 


• T 


FE14 

B4 



3199 


OR 

H ‘ 


. ‘ t 1 


FE15 

2B 



3200 


DEC 

HL 


. j 


FE 1 6 

20 

03 


3201 


JR 

NZ , RF5 

1 

J ump if there was : « • 


FE10. 

2A 

F8 

FE 

3202 


LD 

HL, (CSADDR ) 

1 

otherwise set load address from 

header 

FE1B 

ED 

5B 

FA 

FE 3203 

RF5 

LD 

DE, (CCOUNT) 

1 

set the bvte count 

*» 

FE1F 

FD 

21 

8C 

FI ' 3204 


LD 

I Y, RBLOCK 

1 

read the block 

- .v ’ 

FE23 

CD 

D3 F7 

3205 


CALL 

PI TP0-P1BI AS 


• « ' • • • 


FE26 

F5 



' 3206 

RF6 

PUSH 

AF 

1 

save f lass : Y , 


FE27 

FD 

21 

8D 

F2 . 3207 


LD 

I Y, RTAIL 

1 

finish up the read ’ i ' • •• . 

. ‘ ' y 

FE2B 

CD 

D3 

F7 

3208 


CALL 

P1TP0-P1BIA3 




FE2E 

FI 



3209 


POP 

AF 

1 

res tore f 1 ass . * 


FE2F 

C9 

. V 

49 

3210 


RET 




' • * • . 

FE30 




3211 







FE30 




3212 

1 






FE30 




'• 3213 

t OETNAME - 

Get a pile name 

from the command line 


FE30 




3214 

1 








- 54 - 


FE30 




3215 

* 

entrv! do 

points to * 7 

byte buffer to read the name 

FE30 




3216 

? 

hi 

points to the 

command character 

FE30 




3217 

1 





FE30 




3218 

1 

exit! carry set if no name 

FE30 




3219 

1 





FE30 




3220 






FE30 

06 

06 

i 

3221 

OETNAME LD 

B? 6 

I 

build the file header - sc< 

FE32 

FD 

21 

17 F3 

;• •• 3222 


LD 

IY.FINDB 



FE36 

CD 

D3 

F7 

3223 

■ ■ i 

CALL 

P1TP0-P1BI AS 



FE39 

D8 



3224 


!* RET 

C 

5 

return if no space 

FE3A 




3225 

*; 





FE3A 

06 

OA 


3226 


LD 

B* 10 

1 

scan to the name J.*. 

FE3C. 

FD 

21 

20 F*3 

3227 


LD 

I Y i FINDNB 


- 

FE40 

CD 

D3 

F7 

V : 3228 


CALL 

P1TP0-P1BIAS 


i 

FE43 

D8 


V: ; 3229 


RET 

C 

* 

return if no name 

FE44 



. V 

3230 






FE44 

06 

06 


•■•V 3231 


LD 

B» 6 

1 

get upto 6 characters of n< 

FE46 

7E 


» 

;• 3232 

GN1' LD 

A, (HL) 

1 

get a charac ter 

FE47 

FD 

21 

29 F3 

- 3233 


LD 

I Y, UPSHIFT 

? 

upshift it 

FE4B 

CD 

D3 

F7 

• , 3234 


CALL 

P1TP0-P1BI AS 



FE4 E 

FE 

20 


3235 


CP 



! end of name? 

FE50 

20 

02 


. 3236 


JR 

NZ.0N2 

I 

Jump if not 

FE52 

2B 



3237 


DEC 

HL. V 

f 

fudge the source pointer 

FE53 

AF 

\ v ! , 


3238 


XOR 

A 

1 

se/t a null for the charact< 

FE54 

12 


S % 

3239 

GN2 LD 

( de) i a ; . 

1 

save the character 

FE55 

13 



3240 


■ INC 

de .* • ; 

; 

increment destination 

FE56 

23 



... 3241 


INC 

HL 

i 

increment source 

FE57 

10 

ED 


3242 


DJNZ 

gni .. : 

i 

Jump if more characters • 

FE59 

AF 

* 


3243 


XOR 

A 



FE5A 

12 

.»*■ »* . 


.. 3244 


LD 

( DE ) i A , 



FE5B 

B7 



3245 


OR • 

A ... 1 

i 

clear carry . * 

FE5C 

C9 

i • • 


3246 


RET 




FE5D 

• •« 

« \ 


, 3247 



( • 


• ' . • *“• 

FE5D 

, ; ' 


*• 

. 3248 

1 




’ " n ' y. : *,*'• 

FE5D 


V 


‘ 3249 

1 

PI PUTS - 

Print a string 


• 

FE5D 


• l 


3250 

1 




• .* , 

FE5D 


, ; ■■ 


3251 

I 

usage! call plruts-plbias 

■ • ■ , . V.V.'i. •. *' 

FE5D 


' • ; 

' * 

3252 

\ 




• ' ‘ 

FE5D 




3253 

1 

entrvt a 

nul 1 terminated 

string follows the call r 

FE5D 

, ' ' 



3254 

1 





FE5D 

: 1 1 

• *. . 

\ 

/. 3255 

f 

exit* the 

strings been 

printed 

FE5D 


> * '. ; 


3256 

1 


• • >•,* 


• ■ , •• i • 

: • I 

i. , . f 

FE5D 


.. !' ’ 


‘ / 3257 





• .* • \ **. 

FE5D 

7E 



3258 

P1PUTS LD 

A* (HL) ' 


• , ' ’ •’ ' • 

FE5E 

B7 



3259 


OR 

A 


^ '«*• * • . ! 

FE5F 

C8 



3260 


RET 

Z • , 5 



FE60 

4F 



3261 


LD 

C» A 



FE61 

FD 

21 

DE F2 

3262 


LD 

IYiMPUTC 


' * 

FE65 

CD 

D3 

F7 

3263 


CALL 

P1TP0-P1BI AS 


' .-T 

FE68 

23 

! * 


3264 


INC 

HL 1 



FE69 

18 

F2 


. 3265 


JR 

PI PUTS 



FE6B 




'•3266 



. * • « ■ .. 



FE6B 




3267 

1 





FE6B 



• • ; . 

/ 3268 

1 

PHDR - print header stuff 

from the cassette 

FE6B 




3269 

1 


* 



FE6B 




3270 

5 

entry! nothin* 


i. • • 

FE6B 

i 



3271 

; 


, 


/ 

FE6B 


.• . 

. y'\ 

3272 

? 

exit! the 

header has been 

printed 

FE6B 




3273 

1 





FE6B 



l' • •' 

3274 





1 


OJ- 



06 

07 


1 

3275 

PHBR 

LD 

B * 7 ; 

print the name * 

j'ivfe&d 

FE70 

21 

FI 

FE 


3276 


LD 

HL* CNAME 


7E 




. 3277 

PHI 

LD 

A, (ML) 


t,v FE71 

FE 

20 



3278 


CP 

r i 


'!• FE73 

38 

04 



3279 

7 ' 

JR 

C,PH2 


‘ FE75 

FE 

7F 



3280 


CP 

07FH 

• • • 

FE 77 

38 

02 



3281 


JR 

C.PH3 


FE79 

3E 

20 



3282 

PH2 •* 

LD 

A, ' > • 

• ii ’ ! ! 

FE7B 

4F 




3283 

PH3 ? 

LD 

C,A 


FE7C 

FD 

21 

DE 

F2 

3284 


LD. ‘ 

IY.MPUTC 

• r '1 * ■ - *■ 

FESO 

CD 

D3 

F7 

> 

3285 


CALL 

P1TP0-P1BI AS 

• • ! 

FES3 

23 


, 1 


3236 


INC 

HL 


FE84 

10 

EA 



3287 


DJN2 

PHI 

* ' - . ! 

FE 86 





3283 





FES 6 

2A 

F 8 

FE 


3209 


LD 

HL* (CSADDR) \ 

print the start address V 

FE89 

7C 




3290 


LD 

A.H 


FE 8 A 

FD 

21 

48 

F3 

3291 


LD 

IY.PUTHB 


FESE 

CD 

D3 

F7 


3292 


CALL 

P 1 TPQ-P1BI AS 

• ’ • • • • 

FE91 

7D 




3293 


LD 

A * L 


FE92 

CD 

D3 

F7 


3294 

* 

CALL 

P1TP0-P1BIAS 


FE95 

OE 

20 



3295 


LD 

C, ' ' 


FE97 

FD 

21 

DE 

F2 

3296 


LD 

I Y » MPUTC ' 


FE9B 

CD 

D3 

F7 


3297 


CALL. 

P1TP0-P1BIAS 

• . ■ ' .• 1 . 

FE9E 




■ . - X 

3298 




• ' * > ‘ . » -77 V . 

FE9E 

2A 

FA 

FE 


3299 


LD 

HL* (CCOUNT) ? 

print the count 

FEA1 

7C 




3300 

• U • i . 

LD 

A* H 

» * • . V- ' ' . • 

FEA2 

FD 

21 

48 

F3 

3301 

. : ' 

LD 

IY.PUTHB r 

* V ; . • ' 

FEA 6 

CD 

D3 

F7 


3302 


CALL 

P1TP0-P1BIAS 

. . ; # * * # 

FEA9 

7D 




3303 


LD 

A* L « • 


FEAA 

CD 

D3 

F7 


3304 

• • 

CALL 

P1TP0-P1BIAS 

i . * ' « . , • ’ 

. FEAD 

C9 




3305 


RET ... 


. ! •. i \ • ' . . 

FEAE 



,Y 


3306 


•' • ; . 



FEAE 





3307 

t ’ 




FEAE 





3308 

1 P1CL0AD - 

Load a block from the cassette . V i.T 

FEAE 





3309 

1 



/ V. 1 ... 

FEAE 





3310 

1 command syntax* L <name> 

C<1 oad_addr>3 ■ 

FEAE 





3311 

1 



’ ■ * *. 1 • .• .• * 

FEAE 





3312 





FEAE 

ED 

73 

FE 

FE 

3313 

P1CL0AD LD 

(CSP),SP *■ \ 


FEB2 

31 

40 

FF 


3314 


LD 

SP* CSTACK ' 

t' • , *. 

FEB5 





3315 




• ** • 

FEB5 

11 

BO 

FE 


3316 


LD 

DE* VBC • v- 1 

point to a buffer to hold the name 

FEB 8 

CD 

30 

F 6 


3317 

■> , • 

CALL 

GETNAME-P1BIAS 

Jump if there was a name * 

FEBB 

30 

08 



3318 


JR 

NO* L0AD1 x 1 

FEBD 





3319 




* . . : . r / 

FEBD 

11 

FF 

FF 


3320 


LD 

DErl "# 1 " . ; 

else load the next file - no opt. load addre 

FECO 

21 

FF 

FF 


3321 


LD .... 

HL * - 1 1 

say read next file s ■< ' - • 1 ‘ ».•' ’ 

FEC3 

18 

15 

; . \] 


3322 


JR • . 

L0AD3 1 

so do the load / ' r . 

FEC5 





3323 


* 


, }: ■ . 

FEC5 

11 

FF 

FF 


3324 

LOAD! 

LD 

DE* -1 ? V 1 

Jnit optional load address ; 

FEC 8 

FD 

21 

ED 

F2 

3325. 

f 

LD , 

• I Y* GETADDR 5 

get an optional load address 

FECC 

CD 

D3 

F7 


3326 

V •’ 

CALL 

P 1TP0-P1 BI AS 


FECF 

30 

06 



3327 


JR 

NC.L0AD2 1 

9 0 1 1 oad address 

FED! 

7E 




3328 


LD 

A* (HL) 1 

else no load address or bad character < 

FED2 

FE 

20 



3329 


CP 

/ / 

; check for bad character 

FED4 

37 




3330 


SCF 

' , 


FEDS 

20 

1C 

i . 

• ! ( 

3331 


JR 

NZ » L0AD6 1 J 

return if so " ’ . ., 

FED7 





3332 


' ■ \ 

HL, VB* ’ ; V ; 


FED7 

21 

BO 

FE 


3333 

L0AD2 

LD 

point to name of file to load 

FEDA 

CD 

CE 

F5 


3334 

L0AD3 

CALL 

P1RFILE-P1BIAS 

; find and read the file 
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EXP - £> 


FEDD J 
FEDD 21 IE F7 J 
FEEO 28 05 

3333 



3336 L0AD7 

LD 

HL » NQERR-P 1 B I AS 

3337 

JR 

Z , L0AD4 

FEE2 21 OA F7 / * 

3338 .. 

LD 

HL > C’KERR-P 1 B I AS 

FEES 18 05 

3339 

JR 

LOADS 

FEE7 

3340 " * ' 



FEE7 30 03 T r '. 

3341 L0AD4 

JR 

NC» LOADS i 

FEE9 21 FQ F6 • ‘ 

3342 

LD 

HL» LDABRT-P1BI A! 

FEEC / 

FEEC CD 5D F6 

3343 



3344 L0AD5 

CALL 

P 1 PUT S-P 1 B I AS 

FEEF CD 6B F6 

' 3345 

CALL 

PHDR-P1 BI AS 5 

FEF2 B7 

•3346 

OR 

A 

FEF3 ED 7B FE FE 

3347 L0AD6 

LD 

SP, (CSP) 

FEF7 C9 

3348 

RET 


FEF 8 

3349 



FEF8 OD OA 

3350 LDABRT DB 

OODH » OOAH 

FEFA 4C 6F 61 64 

3351 

ASC 

"Load Ab 

20 61 62 6F 72 




74 65 64 20 2D 




20 : , ; 




FF09 00 

3352 

DB • 7 

0 

FFOA 

3353 

} ■ 


FFOA OD OA 

3354 CKERR 

DB , 

OODH. OOAH / , 

FFOC 43 68 65 63 

3355 

ASC % 

"Checksum 7 Er 

6B 73 75 6D 20 




65 72 72 6F 72 




20 2D 20 

FFID T)0 

3356 

DB 

0 

FF IE 

3357 



FF1E OD OA 

3358 NOERR 

DB 

OODH. OOAH 

FF20 20 20 20 20 

3359 

ASC 

.1 

/ 20 20 20 20 20 




20 20 20 20 20 




20 20 20 

FF31 OQ 

3360 /* 

DB 

0 

FF32 

FF 32 50 44 4C 4F 

3361 

3362 PARA 

ASC 

"PDLOAD" 1 

41 44 

FF3Q 00 

3363 / • 

DB 

0 

FF39 

FF39 

3364 

3365 V 

COPY 

P1PDL.CD/1 

FF39 

FF39 

3366 1 /, 

3367 1 Dou/nLoad loads memory f 

FF39 , 

3368 » 



FF39 

3369 



FF39 ED 73 FE FE 

3370 DLOAD 

LD 

(CSP).SP 

FF3D 31 40 FF 

3371 

LD 

SP.CSTACK 

FF40 

FF40 21 32 F7 

3372 

3373 

LD 

HL. PARA-P1B I AS 

FF43 11 FI FE 

3374 

LD 

DE, CNAME l 

FF 46 01 07 00 

3375 

LD 

BC.7 

• FF49 ED BO 

‘3376 

LDIR 


FF4B 

, 3377 



FF4B CD 87 F7 , 

3378 DL1 

CALL 

DLREAD-P 1 B I AS 

FF4E FE 00 

3379 

CP 

0 

FF 50 20 F9 

3380 

. JR 

NZ.BL1 1 

FF 52 CD 87. F7 

3381 DL2 

CALL 

DLREAD-P l B I AS 

""•5 FE 00 

3332 

CP 

0 

— o 

3383 

JR 

Z . DL2 


3384 

CP 

0A5H 


Aborted - ** 




I must have 6 chars and a NULL 


l point to a name for parallel por 
I init CNAME buffer 


» loop until null found 

1 if 1st U 2nd char®0 then 3rd 

1 if OO then is it sync? 
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FF5B 

20 

EE 


3385 

JR 

NZ,DL1 

no, so look, for 0 again 

FF5D 

EB 



3336 

EX 

DE.HL ? 

now hi points to CSADDR 

FF5E 

11 

04 

00 

3337 

. LD 

DE » 4 

, 

FF61 

CD 

75 

F7 

33S3 

CALL 

RPBLOCK-Pi B I AS 

5 read in parallel header block 

FF64 

C2 

DD 

F6 

3389 

: JP 

NZ , L0AD7-P1BI AS 

? Jump if checksum error 

FF67 




3390 



_ 

FF67 

2A 

F8 

FE 

,i i 3391 

LD 

HL, (CSADDR) i 

fetch load address 

FF6A 

ED 

5B 

FA 

FE !« 3392 

; ld 

DE, (CCOUNT) ; 

fetch count 

FF6E 

47 



\i 3393 

ld 

B, A ■ : 

? re-ini t ial i ze checksum in B 

FF6F 

CD. 

75 

F7 

',,3394 

CALL 

RPBLOCK-P 1 B I AS 

• read in data block 

FF72 

C3 

DD 

F6 

• V 3395 

>. JP 

L0AD7-P1BI AS 


FF75 




* y, 3396 

. • 



FF75 

CD 

87 

F7 

V: 3397 
tv 3398 
7.: 3399 

RPBLOCK CALL DLREAD-P1 BI AS 

; read a block of bytes to (HL) 

FF78 

77 



LD 

( HL ) , A 


FF79 

SO 



ADD 

A, B 


FF7A 

47 



34 00 

” LD 

B, A « 


FF7B 

23 



3401 

. V INC 

HL 


FF7C 

IB 



3402 

DEC 

DE ; ; 

DE counts bytes 

FF7D 

7B 



3403 

LD 

A ,E * • 


FF7E 

B2 



3404 

OR 

D 


FF7F 

20 

F4 


3405 

JR 

NZ, RPBLOCK 


FF81 

CD 

87 

F7 

1 3406 

CALL 

DLREAD-P1BI AS 


FF84 

90 



3407 

SUB 

A, B 


FF85 

B7 



3408 

OR 

A 


FF86 

C9 



3409 

RET 

I 

result OO if checksum error 

FF87 




3410 


i 


FF87 




3411 




FF87 

FD 

21 

40 

F2 3412 

DLREAD LD 

IY, CHKABRT 

check if abort 

FF8B 

CD 

D3 

F7 

3413 

CALL 

P1TP0-P1 BI AS 

’ ’ - * 

FF8E 

DA 

E7 

F6 

3414 

JP 

C.L0AD4-P1BIAS 

1 ABORT, so exit via load abort 

FF91 

FD 

21 

65 

F7 .3415 

DLR2 LD 

I Y, PSTAT ! 

ok so read status 

FF95 

CD 

D3 

F7 

3416 

CALL 

P1TP0-P1 BI AS 


FF98 

20 

ED 


3417 

JR 

NZ, DLREAD 1 

not ready,* sol oop 

FF9A 

FD 

21~6E 

F7 . 3418 

LD . 

I Y, PREAD 

/ 


FF9E C3 
FFA1 
FFA1 
FFA1 
FFC3 

FFC3 43 19 81 



JP 


34 

t »<20 1 

3421 

3422 

3423 

3424 COWWM DB 67,25,129 


P1TPO-P1BI AS I this is a return u// byte read back in acc 


ORO ENDP1-61 


FFC6 

4D 

49 4//52 

3425 


J ASC "MICROEXPANDER" 


. • ■ . . * 

4F 

45 

58 M 0 41 






4E 

44 

45 \t2 

. 


V' ’ . . ■! 


* ; ’ 

FFD3 


V 

342# 


i * ‘ ' * J -' 



FFD3 



_3AC7 


ORO ENDP1-45 



FFD3 



3428 


' i * 


• ; , .. * . ; . 

FFD3 



3429 

1 




FFD3 



3430 

1 

P1TP0 - Start of page 1 to page 

zero 

1 inkaee routine 

FFD3 


t . 

3431 

1 

the rest of the routine 

is in page 0 

FFD3 



, 3432 

1 




FFD3 



3433 

1 

usage! call PltpO 



FFD3 


^ • * ’ ’ 

3434 

1 



FFD3 



3435 

1 

entry* hi has address of the routine 

you want 

FFD3 



3436 

1 

. , 


• .« 

FFD3 


. , ' ’ 

3437 

1 

zaps! nothing 


; * * ‘ • *; • 

FFD3 



3433 

1 




FFD3 

*4 


• ' 3439 





FpD3' 



3440 

» 

the following six lines of code 

are 

executed in page 

FFD3 


• • . * 

3441 


• • ’ i • : 


. « 

FFD3 

F3 


3442 

P1TP0 DI . 


, • • i 


• - 58 - 




FFD4 

F5 




3443 

PUSH 

AF 

5 

gave acc 


FFP5 

3A 

FO 

FE 


3444 

L.D 

A* ( AUXMASK ) 

? 

get current mask . • 


FFDS 

CB 

8F 



3445 

RES 

1. A 

1 

select page 0 


FFDA 

32 

FO 

FE 


34 4 6 

LD 

(AUXMASK) , A 


update mask 


FFDD 

D3 

BC 



3447 

OUT 

( KDATA ) » A 

> 

do the switch 


FFDF 





3448 




/• 

/ 


FFDF 





3449 

5 fal 1 thru 

into the code 

in page 0 (see RP0TP1) 


FFDF 




y 

3450 

• 





FFDF 





3451 

? The rest 

of the code for 

P0TP1 - executed in page 1 


FFDF 




• t' , 

3452 

1 





FFDF 





3453 






FFDF 

FI 



4 (' 

’ 3454 

RP0TP1 POP 

AF 

I 

retrieve acc and flags 


FFEO 

FB 



•Vi 

3455 

El 

• • 




FFE1 

CD 

FO 

F7 

V-v . 

3456 

CALL 

P 1 I Y JUMP-P 1 B I AS 

1 go to routine in IY 


FFE4 

F3 




3457 

DI 





PFE5 

F5 



ii 

3458 

PUSH 

AF 

; 

save flags 


FFE6 

3A 

FO 

FE 


3459 

V LD 

A, (AUXMASK) 


get mask 


FFE9 

CB 

8F 



3460 

RES 

1 * A 

j 

select page 0 


FFEB 

32 

FO 

FE 


, 3461 

LD 

(AUXMASK) , A 

1 

update the mask 


FF EE 

18 

OB 



3462 

JR 

PURE 




FFFO 



i 


3463 

, 





FFFO 

FD 

E9 

i 


3464 

P 11 Y JUMP JP 

<IY> 




FFF2 





3465 


• •, ■ 



: 1 • 

FFF2 





3466 

\ 

. v 




FFF2 

, 




3467 

1 interrupt 

linkage routine 



FFF2 



• 


3468 

1 





FFF2 





3469 





.v - 

FFF2 

3A 

FO 

FE 


3470 

IRET1 LD 

At (AUXMASK) 

1 

gett current value of aux port 


FFF5 

CB 

C7 



3471 

SET 

0» A 

• 

1 

toggle int_svc_done 

' ' . .’iV’v 17 

FFF7 

D3 

BC 



3472 

OUT 

(KDATA). A 



.•;• • • v .‘t* '• 

FFF 9 

CB 

87 



• 3473 

RES . 

OtA . 


. , • , ' ; ■ 

.* ‘ 

FFFB 

D3 

BC 



3474 

PURE OUT 

(KDATA). A 




FFFD 

FI 




3475 

POP 

AF 




FFFE 

FB 




3476 

El 





FFFF 

09 




3477 

RET 





OOOO 





3478 

I 





0000 





3479 

COPY 

RAM. S/1 


1 I- ’ ■ 


0000 





3480 

1 





0000 





3481 

t Video routine data storage ... 

... • 

OOCKJ 





3432 

? 




. 

0000 





3483 





,,f * * .r- ii 

0000 





3484 

ORO 

OFE30H 



• 

FE30 





3485 






FE30 





3436 

VDATA EQU 

* 

1 

video driver storage area 

' . \ *« 

FE30 





3487 


" ■« 




FE30 





3488 

CURPOS DS 

2 

i 

the current cursor address 


FE32 



• , . 


3489 

WASTHERE DS 

1 

» 

the character which was where the cursor is 

FE33 



V 


3490 




I 


FE33 


; 

! • 


3491 

ESCFLAO DS 

1 

i 

the escape sequence flag 

• • 

FE34 





3492 





, . • > 

FE34 





» 3493 

CVAL DS 

t 

1 

the co 1 or val ue 


FE35 





3494 

GYVAL DS 

1 ■ Vr-. 

5 

temporary storage for graphics Y 

value 

FE36 



. * 


3495 






FE36 





3496 

OCTYPE DS 

■ l 

1 

graphics command type / 

; ■ 

FE37 





3497 






FE37 


v 



3498 

VFLGS DS 

i 

* 

video flags 


FE38 





3499 






FE33 





3500 

KBVAL DS 

1 

» 

the value of the character form 

the kb. -1 if 

FE39 





3501 

KDAV DS 

1 

» 

nonzero if data available at keyboard . 

FE3A 





3502 

KADR DS 

1 

5 

keyboard address of the last key 

pressed 



none 


-59 


EXP. S 11/2/81 


FE3B 


3503 

RTIME 

DS 

1 

? 

repeat timer for- keyboard repeat 


FE3C 


3504 







FE3C 


• 3505 

1 






FE3C . 


3506 

? Cassette 

routine 

data storage 


FE3C 


3507 

5 






FF3C 

% 

. 3508 







FE3C 


' '{ . 3509 

CDATA 

ECU 

% 




FE3C 


. , 3510 







FE3C 


• J • 3511 

CXBC 

DS 

1 -'V 


Cassette Xmit Bit Counter 

■ “ * t - ’ * 

FE3D 


.3512 

CRBC 

DS 

1 

! 

Cassette Recv Bit Counter 


FE3E 

FE3E 


v i, 3513 

: 3514 

\> 3515 

CXBR 

DS 

1 

i 

Cassette Xmit Buffer Register 


FE3F 

A 

CXSR 

DS 

1 

» 

Cassette Xmit Shift Register 


FE40 


•; 3516 







FE40 


<\ 3517 


ORO 

0FE70H 



- , 

FE70 


3518 







FE70 


3519 

CRBR 

DS 

1 

» 

Cassette Recv Buffer Register 

' ’7, 

FE71 


3520 

CR3R 

DS 

1 # 

, * 

Cassette Recv Shift Register 

. ;.i v. 

FE72 


3521 





• 

• \ ■ • • • 

FE72 


3522 

CFLOS 

DS 

1 

i 

cassette flags 

i ■ 

FE73 


3523 

? 




/ • ' . • ; v 
/ • • • 


FE73 : 


3524 

\ 





FE73 


3525 

\ Serial routine data storage 


FE73 


3526 

* 






FE73 


• 3527 





• # . V* 

■ . ' . •** 

FE73 


3528 

SDATA 

EQU 


? 

serial data storage 

• ■ • 1 • 

FE73 


3529 






i * 

FE73 


3530 

CSRFF 

DS 

1 . 

5 

constant serial fudge factor 

. 

FE74 


3531 

SRFF 

DS 

1 

» 

serial fudge factor per timer interrupt 


FE75 


3532 







FE75 


. 3533 

SIC 

DS 

' i -V . 

? 

serial interval count ( 300 baud - 13* 

1200 - 3) 

FE76 


3534 

XIC 

DS 

i 

» 

transmiter interval counter 


FE77 


3535 

RIC 

DS 

i .' t j 

1 

receiver interval counter 

>. . • 

FE78 


3536 

, ' 






FE73 


3537 

RBR 

DS 

i 

I 

serial receive buffer register 


FE79 


3538 

RSR 

DS 

i 

1 

serial receiver shift register 


FE7A 

i 

3539 

RBC 

DS 

i 

1 

receiver bit count* 


FE7B 

i 

3540 





1 

• ‘ - V--: • 

FE7B 


3541 

XBR 

DS 

l .< • 

? 

serial transmit buffer register 

FE7C 


3542 

XSR 

DS 

l 

1 

serial transmiter shift register 


FE7D 


3543 

XBC 

DS 


? 

transmiter bit count -. 

. .• ; . ; 

FE7E . 


3544 







FE7E 


3545 

SFLGS 

DS 

1 i . 

J 

serial flags ( XRDE*' XSRE* RSRE, RBRL, 

RLSB) 

FE7F 


.3546 





■ * * 

■ • : •! * . 

FE7F 


3547 

SMASK 

DS 

1 

1 

current value of the status port 


FE80 


' 3548 

1 





• ’ . . 

FE80 


3549 

1 






FE80 

*; 4 v 

3550 

! Video routine register storage *v..v : 


FE80 


3551 

i 


• ‘ 


" 4S . 4 . ■; . 

• s 'i’ ' » 

FESO . 


3552 





• • • . •.;£# •*’ *' * ' ! '* 


FE80 


. 3553 


ORO 

OFEBOH 




FEBO 


3554 





• ’ •• 

■ 'll • • . 

FEBO 


3555 

VBC 

DS 

2 

J 

res be storage for video routines 

.... \.. if . 

FEB2 


3556 

VDE 

DS 

2 

? 

• 1 e • • •• •» « 

*■ 

FEB4 


3557 

VHL 

DS 

2 

? 

1* |-| | II II II II 

•■'c V • 

FEB6 


3553 

VIX 

DS 

2 

» 

«• i x *• •' •• •• 

■ , • 

FEB3 

* 

3559 



- , 




FEB8 


3560 

» 






FEB3 


3561 

» Stack pointer of 

mon i tor 

before call to PUTCHAR . 

i 

FEB8 


3562 

. 
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FEB8 

3563 

MSP DS 

2 

1 

the monitors stack pointer 


FEBA 

3564 






FEBA 

3565 

ISAVl DS 

2 

1 

16 bit save register for interrupt routines 

FEBC 

3566 






FEBC 

3567 

I 





FEBC 

3568 

i Old values of interrupt 

1 eve 1 s 1 and 2 


FEBC 

. , 3569 

1 



• 


FEBC 

- !( 3570 




/ 


FEBC 

1 3571 

0IV1 DS 

2 

? 

old'int vector 1 value 


FEBE 

** ’ 3572 

0IV2 DS 

2 

? 

old int vector 2 value v 


FECO 

3573 





,• • 

FECO 

3574 

ORO 

OFEFOH 


.• . T 


FEFO 

3575 

. ; ) 





FEFO 

3576 

AUXMASK DS 

1 , ' 

1 

mask for the auxiliary port 


FEF1 

-,3577 




1 


FEF1 

i; . 3578 

5 Cassette 

file header 


. : 1 1 \ > * * . * 


FEF1 

3579 





• : 

FEF1 

•v 3580 

CNAME DS . 

6 


!' : 

• 

FEF7 

i 3581 

DS 

1 
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